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Preface 


This manual describes... 

The VAX PASCAL language, which is an extension of the standard 
accepted for the PASCAL programming language by the International 
Organization for Standardization. This manual is an informal guide for 
programmers who want to write PASCAL programs on a VAX computer 
running the VMS operating system. Section I (Chapters one through 
four) provides an introduction to using the VAX/VMS operating system, 
and explains how to create (using EOT, a text editor), compile, link, 
execute, run, and debug your VAX PASCAL programs. If you are already 
familiar with these topics, you may wish to skip Section I and continue 
on to Section II (Chapters five through fifteen), which provides language 
reference information and syntax rules. 

This manual does not describe... 

Tutorial information on how to program, advanced system-related infor¬ 
mation, or detailed reference information on the VAX/VMS command 
language. Wherever a more extensive understanding of the operating 
system is required, readers are referred to the appropriate documentation 
for more information. 

Structure of This Document 

Programming in VAX PASCAL consists of two sections. Section I contains 
Chapters 1 through 4. Section II contains Chapters 5 through 15. 

• Chapter 1 explains how to use the VAX/VMS operating system, includ¬ 
ing an introduction to the command language (DCL) and information 
on how to work with VAX/VMS files. 

• Chapter 2 explains how to use the VAX/VMS editor, EDT. 

• Chapter 3 provides information on how to compile, link, and execute 
your PASCAL program. 

• Chapter 4 provides information on debugging PASCAL programs. 

• Chapter 5 contains an overview of the VAX PASCAL language and 
illustrates the structure of a PASCAL program. 

• Chapter 6 provides detailed information on data types. 
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• Chapter 7 discusses expressions involving constants, variables, function 
designators, and operators. 

• Chapter 8 describes the declaration sections. 

• Chapter 9 explains the statements that perform the actions of a pro¬ 
gram. 

• Chapter 10 tells you how to write procedures and functions. 

• Chapter 11 presents the predeclared procedures and functions supplied 
by VAX PASCAL. 

• Chapter 12 provides detailed information on input and output proce¬ 
dures. 

• Chapter 13 describes compilation units (blocks, programs, and mod¬ 
ules) and independent compilation. 

• Chapter 14 provides information on VAX PASCAL attributes. 

• Chapter 15 provides information on the %INCLUDE directive and on 
the VAX Common Data Dictionary package. 

• Appendix A lists the ASCII character set. 

• Appendix B presents the syntax productions and diagrams for the VAX 
PASCAL language. 

• Appendix C summarizes the predeclared procedures and functions 
available in VAX PASCAL. 

• Appendix D lists the extensions incorporated in VAX PASCAL. 

• Appendix E describes the features of PASCAL that are defined by or 
dependent on the VAX implementation. 

• Appendix F describes how the VAX PASCAL compiler and run-time 
system detect violations of the language standard. 

• Appendix G gives complete PASCAL program examples. 

• Appendix H gives the Debugger Command Summary. 

ASSOCIATED DOCUMENTS 

The VAX PASCAL User's Guide describes the interaction of VAX PASCAL 
with the VAX/VMS operating system. It is intended for advanced users, 
and is not an introductory manual. 

The VAX PASCAL Installation Guide explains how to install VAX PASCAL 
on your system. 

The Guide to Using DCL and Command Procedures on VAX/VMS describes 
the VAX/VMS commands that will help all users in creating, editing, 
copying, and printing files containing PASCAL programs. 





The Introduction to VAX/VMS provides introductory material for program¬ 
mers who are unfamiliar with the VAX/VMS operating system. 

The manuals that accompany the operating system provide full informa¬ 
tion about VAX/VMS. The VAX/VMS Master Index briefly describes all 
VAX/VMS system documentation, defines the intended audience for each 
manual and provides a synopsis of each manual's contents. 

CONVENTIONS USED IN THIS DOCUMENT 

This document uses the following conventions. 


Convention 

Meaning 

{ } 

Large braces enclose lists from which you 
must choose one item; for example: 

J expression 1 
y statement J 

A horizontal ellipsis means that the item 
preceding the ellipsis can be repeated; for 
example: 

digit... 

Braces followed by a comma and a horizontal 
ellipsis mean that you can repeat the enclosed 
item one or more times, separating two or 
more items with commas; for example: 

{label>,... 
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Convention 

Meaning 

{ };... 

11 

Braces followed by a semicolon and a hori¬ 
zontal ellipsis mean that you can repeat the 
enclosed item one or more times, separat¬ 
ing two or more items with semicolons; for 
example: 

REPEAT {statement};... 

UNTIL expression 

A vertical ellipsis in a figure or example means 
that not all of the statements are shown. 

Square brackets mean that the statement 
syntax requires the square bracket characters. 
This notation is used with arrays, sets, and 
attribute lists; for example: 

ARRAY[indexl] 

n 

Double brackets enclose items that are op¬ 
tional; for example: 

EOLN [[I] 

Items in UPPERCASE 
letters and special 
symbols 

Uppercase letters and special symbols in 
syntax descriptions indicate VAX PASCAL 
reserved words and predeclared identifiers; for 
example: 

BEGIN 

END . 

Items in lowercase 
letters 

Lowercase letters represent elements that you 
must replace according to the description in 
the text. 

Extensions 

VAX extensions to the PASCAL language are 
color coded in blue. 










In addition, the following notation is used to denote special nonprinting 
characters: 

Space character It 

In this manual, complex examples and syntax diagrams have been divided 
into several lines to make them easy to read. PASCAL does not require 
that you format your programs in any particular way; therefore, you 
should not regard the formats used in this manual as mandatory. 
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This section contains information for programmers who are new to 
the VAX operating system. It is a starter section, and explains: 

— The Digital Command Language (DCL) 







— The VAXA^MS text editor (EDT), which you use to create and 
modify your programs 

— How to compile, link, execute, and debug your programs 

Depending on your level of experience, you may wish to skip this 
introductory section. 








Section I 




Section I 




Chapter 1 

Using the VAX/VMS Operating System 


VAX/VMS and its command language, DCL, provide numerous tools and 
utilities for program development. This chapter summarizes what you 
need to know to use the command language in developing and testing 
your PASCAL programs, including: 

• The commands you use to create, compile, link, and execute PASCAL 
programs 

• The commands available to you for file creation, modification, and 
maintenance 

For a tutorial introduction to these concepts, see the Introduction to 
VAX/VMS. For more information on DCL commands, and a complete list 
of the commands available, see the VAX/VMS DCL Dictionary. 


1.1 Using DCL 

Once you have logged in to a VAX/VMS system (see the Introduction to 
VAX/VMS for information on how to do this), you can use DCL commands 
for tasks such as executing programs or printing files. The next two 
sections present rules and conventions for entering these commands, and 
the DCL commands used to create and run programs. 
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1.1.1 Rules for Entering DCL Commands 

When entering DCL commands you should pay particular attention to the 
rules in the following list. Additional rules for entering DCL commands 
are described in the VAX/VMS DCL Dictionary. 

• You can truncate any command name or qualifier name to four char¬ 
acters. Fewer than four characters are accepted, as long as there is no 
ambiguity about the name. 

• You must precede each qualifier name with a single slash character 
(/)• 

• If you omit a required parameter (for example, a file specification), the 
DCL command interpreter will prompt you to enter it. 

• You can enter a command on as many lines as you wish, as long as 
you end each line with a hyphen (-). 

• After you have entered a complete command, you must type a carriage 
return to pass the command to the system for processing. 

• You can cancel a command before the final carriage return by typing 
I CTRL/Y I . 

• You can interrup t command execution (and user programs) by typing 
I CTRL/Y I . I CTRL/Y I stops processing; you may at this point enter other 
DCL commands. If, however, you wish to resume the interrupted 
command, enter the CONTINUE command. 

If you make an error entering a command, for example, if you misspell 
a command or qualifier name, the command interpreter issues an error 
message and you must reenter the entire command or use command 
line editing to retrieve and modify a previously issued command (see 
VAX/VMS DCL Dictionary for more information). 


1.1.2 Commands for Program Development 

Figure 1-1 illustrates the DCL commands you use to create and run 
PASCAL programs. The commands are shown in their simplest forms. 
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Figure 1—1: Commands for PASCAL Program Development 


COMMANDS 


INPUT/OUTPUT FILES 


EDIT AVERAGE.PAS 
Use the file type of PAS to 
indicate that the file contains 
a VAX PASCAL program. 


PASCAL AVERAGE 
The PASCAL command 
assumes that the file type 
of an input file is PAS. 

(If you use the /LIST 
qualifier, the compiler 
creates a listing file.) 


LINK AVERAGE 
The LINK command assumes 
that the file type of an input 
file is OBJ. 

(If you use the /MAP qualifier, 
the linker creates a map file.) 


RUN AVERAGE 
The RUN command assumes 
that the file type of an image 
is EXE. 


Create a 
source program 


Compile the 
source program 




Link the 
object module 



Run the 
executable 
image 



AVERAGE.PAS 


AVERAGE.OBJ 
(AVERAGE.LIS) 

libraries 


AVERAGE.EXE 

(AVERAGE.MAP) 


ZK-1036-82 


The steps shown in Figure 1-1 are performed when you enter the follow¬ 
ing commands to the VAX system: 

$ EDIT/EDT file-spec 
$ PASCAL file-spec 
$ LINK file-spec 
$ RUN file-spec 
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For the above commands, descriptions and defaults are as follows: 

• The EDIT command allows you to create the VAX/VMS file, called a 
source file, which contains program source statements. You use a text 
editor—in this manual, the text editor EDT is used—to initially create 
the source file (see Chapter 2, Creating and Modifying Programs). For 
example, to create a file named FIRSTRY, you would type: 

$ EDIT/EDT FIRSTRY.PAS 

The name that you give to the file (here the name FIRSTRY) is also 
called a file specification. 

You must include a file type with the EDIT/EDT command, because it 
does not assume a file type by default. PAS is the usual file type used 
when creating a VAX PASCAL file. 

• After you have created a VAX PASCAL source program (by inserting 
the source statements-see Chapter 2, Creating and Modifying 
Programs), you compile it. To compile the source program 
FIRSTRY.PAS, issue the command: 

$ PASCAL FIRSTRY 

Here, you can omit the file type because the PASCAL command 
assumes the file type PAS as the default. 

The compile command (PASCAL) produces an object module that 
has the same file name as the source file, but a different file type of 
OBJ. If the compiler does not detect any errors in the source program 
or module, the system displays the dollar sign prompt to indicate 
successful compilation. 

If the source program or module does contain errors, the system will 
display the error messages on your terminal, so that you may re-enter 
EDT (and then re-compile again) to correct the errors. Note that 
the error messages shown may be of different levels (Informational, 
Warning, Error, or Fatal); only Error or Fatal levels indicate that you 
must re-enter EDT to make corrections. See Appendix A of the VAX 
PASCAL User's Guide for a list and explanation of all error messages. 

• The object module (in this example, FIRSTRY.OBJ) is not executable. 
To generate a file that is executable, invoke the VAX Linker with the 
LINK command: 

$ LINK FIRSTRY 

You can omit the file type because the LINK command assumes the file 
type OBJ as the default. 


1 -/; 


Using the VAX/VMS Operating System 





The LINK command in this example creates a file named FIRSTRY.EXE, 
which is an executable image, that is, a file that contains your program 
in an executable format. 

• After the executable image has been generated, use the RUN command 
to execute the program: 

$ RUN FIRSTRY 

You can omit the file type because the RUN command assumes the file 
type EXE as the default. 

The first time you run a program, it may not execute properly; if it has 
a bug, or programming error, you must re-enter the file (by using the 
EDT editor), correct any errors, and repeat the process of compiling, 
linking, and executing until your program is error free. 


1.2 Getting Help from VAX/VMS 

You can get online help from VAX/VMS on commands, qualifiers, and 
other keywords by using the HELP command. The format for this com¬ 
mand is: 

$ HELP [Itopic ttsubtopic . . . U U 

For instance, if you simply type HELP, you get a list of all the topics for 
which help is available. If you type HELP PASCAL, you get a list of 
PASCAL keywords for which help is available. To obtain information, for 
example, on PASCAL parameters, type HELP PASCAL PARAMETERS. 


1.3 Working with VAX/VMS Files 

In order to name, access, and use your files effectively, you need informa¬ 
tion about: 

• File specifications, which you use to refer to a particular file 

• File handling commands, which you can use to perform a variety of 
operations on files 

For more information on VAX/VMS file specifications, and for exact file 
specification ranges and limits, see the VAX/VMS DCL Dictionary. 
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1.3.1 File Specifications 


A file specification provides the system with all the information it needs to 
uniquely identify a file. A file specification has the format: 

node"access control string"::device:[directory]filename.type;version 

Note that you do not have to specify each field in a file specification; 
you may use the system-supplied default values. The fields of a file 
specification are defined below: 

node" access control string'' 

When copying files to or from another network, you must include the 
node name followed by colons, however, depending on your privileges 
and the operation that you are performing, you may have to provide an 
access control string. An access control string specifies the user name 
and the password to be used on the remote node. When you include the 
access control string, you must enclose it in quotation marks, and it must 
precede the two colons. For example, the file specification 

TRNTO"SMITH JOHN"::WORK_DISK:TEST.DAT;1 

contains explicit access control information and can be used to access the 
file TEST.DAT, which resides in the user SMITH'S top level directory on 
the device WORK_DISK on node TRNTO. 

If the file specification for the remote node does not conform to VAX/VMS 
syntax, you must enclose everything after the two colons in quotation 
marks. 

device 

The storage device on which the file is stored or is to be written. Each 
physical device known to the system can be uniquely identified by a 
character string in the format devcu, where dev is a code for the device 
type, c is a controller designation, and u is a unit number. Controllers 
are designated by the letters A through Z. Units consist of numbers. 

For example, MTAl is the designation for the magnetic tape device on 
controller A whose number is 1. 

The following example shows a full file specification for the file 
PASPRG.LIS on magnetic tape drive MTAl: 

MTAl:PASPRG.LIS 
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Note that your system manager sets up logical names for the storage 
devices attached to your system. You should use these logical names 
(rather than the physical device names) when referring to files on these 
devices. 

directory 

A named catalog of files. You can specify a directory as a 2-part user iden¬ 
tification code, as a character string, or as a sequence of character strings 
separated by periods. In each case you must enclose the directory name 
in square brackets ([]) or angle brackets ( < > ). (See Section 1.3.1.1 for 
a description of directories and directory hierarchies.) 

The following examples show how you can refer to directories, and, as in 
the last example, subdirectories: 

[360,015] 

[KANDINSKY] 

[KANDINSKY.PASCAL] 

filename 

A string which consists of numbers and lower and upper case letters (the 
system does not distinguish between the two). 

The following examples show legal file names. 

FASTEST 

BUDGETER$ 

APR23RECS 

a 

type 

A character string that, by convention, identifies the contents of the file. 
For example, the file type .PAS is usually used to denote PASCAL source 
programs. Any alphanumeric characters can also be used in file types. 

The file type must be preceded in the file specification by a period. 

Several file types are recognized by certain VAX/VMS utilities and are 
therefore very useful. Some of the recognized file types are listed in 
Table 1-1. 

version 

A decimal integer preceded by a semicolon or a period. When you update 
or modify a file without specifying the version number of the output file. 
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the system increments the current version number by one when creating 
the output file. For example: 

PASPROG.LIS;3 

PASPROG.LIS;2 

PASPROG.LIS;! 

Here, the file PASPROG.LIS was modified twice after it was created. 


Table 1- 

-1: Common File Types 

Type 

Expected File Contents 

COM 

Command procedure file to be executed interactively or as a 
batch job 

DAT 

Input or output data file 

DIR 

Directory file 

EXE 

Image file created by the linker 

HLB 

Help text library file 

HLP 

Input text for help libraries 

JOU 

Journal file for the EDT editor 

LIS 

Listing file created by the PASCAL compiler; default input 
type for the PRINT and TYPE commands 

LOG 

Batch job output file 

MAI 

Mail message file 

OBJ 

Object file created by the PASCAL compiler 

OLB 

Object module library 

PAS 

Input source file for the PASCAL compiler 

PEN 

Environment file created by the PASCAL compiler 

TMP 

Temporary file 

TXT 

Input file for text libraries 
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1.3.1.1 Directories and Subdirectories 


Directories are "file catalogs", each of which is owned by a particular user. 
The system identifies each catalog by the user identification code (UIC), 
which is written as a group number and a member number, separated by 
a comma, and enclosed in square brackets. For convenience, however, the 
system also associates alphabetic names with each directory, and you can 
use these names in referring to directories. Usually the directory you own 
has the same name as the account under which you log in. 

If you wish, VAX/VMS allows you to divide directories into subdirectories. 
Subdirectories are written like directories, separated by periods and 
enclosed in square brackets. The first directory name in the list is the top 
level directory; the last name in the list is that of the subdirectory to which 
you are referring. For example: 

[FAULKNER.PROGRAMS.PASCAL] 

VAX/VMS keeps track of your current default device and directory. When 
you log in, your default directory and device are set to your home disk 
area. To determine the current default values, use the SHOW DEFAULT 
command. For example: 

$ SHOW DEFAULT 

[BRONSTEIN.PASCAL] 

You can change these default values with the SET DEFAULT command. 
For example, if your default directory on login is [FAULKNER] and you 
wish to work on files in your directory [FAULKNER.PROGRAMS], you 
can type the following command: 

$ SET DEFAULT [FAULKNER.PROGRAMS] 

After this command is executed, a reference to PASPROG.LIS refers to 
[FAULKNER.PASCAL]PASPROG.LIS, not [FAULKNER]PASPROG.LIS. 

To create a subdirectory, use the CREATE/DIRECTORY command. For 
example, if you wish to create the subdirectory [FAULKNER.PROGRAMS. 
PASCAL], enter the following command: 

$ CREATE/DIRECTORY [FAULKNER.PROGRAMS.PASCAL] 

If, however, you have executed the command SET DEFAULT [FAULKNER. 
PROGRAMS] as shown in the earlier example, your current default direc¬ 
tory is [FAULKNER.PROGRAMS], so you can use the following form of 
the command: 

$ CREATE/DIRECTORY [.PASCAL] 
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After you execute this command, the higher-level directory [FAULKNER. 
PROGRAMS] contains the file PASCAL.DIR, which catalogs the files in 
[FAULKNER.PROGRAMS.PASCAL]. 

To delete a subdirectory, you should first delete any files contained in 
it. Note that directory and subdirectory files are protected to prevent 
accidental deletion; to delete them you must first change the file protection 
(see the VAX/VMS DCL Dictionary for more information). Then you 
can delete the DIR file, which you received when you first created the 
subdirectory, since it no longer contains your files. 

You can create subdirectories within subdirectories, thus producing a tree 
structure of directories. The number of directories you can create is limited 
only to your available disk space; however, the hierarchy cannot contain 
more than eight levels. Figure 1-2 illustrates the concept of directory 
hierarchies. 
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Figure 1—2: A Directory Hierarchy 



$ DIRECTORY [000000] 


MALCOLM.DIR 
301300.DIR 
/HIGGINS.DIR 
/'301301.DIR 


A volume's Master Frie Directory (MFD) 
contains entries for the user file 
directories (UFDs) on the volume. 



LEVEL 


S DIRECTORY [HIGGINS) 


PAYROLL DIR 
USER DOC 
MEMO.LIS 
LOGIN.COM 


Each UFD lists the hies belonging 
to that directory, and can contain 
entries for additional directories, 
called subdirectories 



S DIRECTORY [HIGGINS.PAYROLL 

INFO.COM 
SOURCE DIR 
LISTINGS DIR 
DATA DIR 
DIRECT DOC 


The subdirectory file named | HIGGINS.PAYROLL) DATA.Dl R 
lists additional subdirectory files. 


S DIRECTORY [HIGGINS PAYROLL DATA) 


•JANUARY DIR 
FEBRUARY.DIR 
MARCH DIR 


S DIRECTORY ( HIGGINS.PAYROL L. LISTINGS! 




A suixfirectory can catalog files 
and/or additional subdirectories. 
The subdirectory file named 
HIGGINSIPAYROLL.DIR 
ists additional subdirectory files. 


O 


S DIRECTORY [HIGGINS.PAYROLL.SOURCE 


F ICA FOR 
TAXES MAR 
PAYROLL FOR 


S DIRECTORY [ HIGGINS PA YROLL.DATA.MARCH) 


FICA DAT 
STATETAX DAT 
FEDTAX DAT 
EMPTTL DAT 


FICA DAT 
STATETAX DAT 
FEDTAX DAT 
EMPTTL DAT 


FICA.DAT 
STATETAX.DAT 
FEDTAX DAT 
EMPTTL DAT 


next level DI R ' 


© 
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1.3.1.2 


Wild-Card Characters 


You can often substitute characters called wild cards for directories, file 
names, file types, and version numbers in file specifications. With wild 
cards, you describe a pattern to VAX/VMS against which it tries to match 
file specifications. A file specification with wild card characters refers to 
every file whose specification matches the pattern. 

The DCL wild card characters are the asterisk (♦) and the percent sign 
(%). The asterisk stands for any number of characters, including zero. 

For example, ♦.PAS refers to all files whose file types are PAS. A*.PAS 
refers to all files whose names start with A, including A.PAS if such a file 
exists. The percent sign stands for exactly one character. For example, 
A%.PAS refers to all files whose types are PAS and whose names are two 
characters, A followed by any other legal character. 

The following example shows how to use wild cards with file specification 
fields to keep track of groups of files. If you have a number of PASCAL 
programs, and you have used the default file type PAS, you can obtain a 
listing of all source files on your current directory by typing: 

$ DIR ♦.PAS 

You can refer to the most recent executable versions of programs that 
exist, for example, on [PASCAL.EXECUTE] with the specification 

[PASCAL.EXECUTE]♦.EXE; 

You can refer to help files on, for example, the network node HUNTER 
with the specification 

HUNTER::SYS$HELP:♦.♦ 


1.3.1.3 Logical Names 

Logical names are character strings that provide a shorthand way of speci¬ 
fying device, directory, or file names to which you refer frequently. Every 
logical name is paired with an equivalence name; the equivalence name 
is either a file specification, part of a file specification, or another logical 
name. When programs and command procedures refer to physical files 
by logical names, VAX/VMS translates the logical name to its equivalence 
name. 

The two commands, ASSIGN and DEFINE, both equate a logical name 
and an equivalence name. However, they differ in the order in which they 
require the logical and equivalence names. They also differ in that if you 
supply a terminating colon with the logical name, ASSIGN removes the 
terminating colon, while DEFINE does not. 
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The following example shows how to equate a logical name and a file 
specification using the ASSIGN and DEFINE commands: 

$ ASSIGN [JONG.PASCAL]FASTEST.PAS TEST 
$ DEFINE TEST [JONG.PASCAL]FASTEST.PAS 

These commands equate the logical name TEST to the file specification 
[JONG.PASCALjPASTEST.PAS. Once you have issued one of these 
commands, you can refer to the file by the name TEST. For example: 

$ TYPE TEST 

Logical Name Tables 

Logical names are kept in four types of tables: user, process, group, and 
system logical name tables. 

• User logical name tables contain logical names that are local to the 
program that is currently executing. They automatically go away when 
the execution of the program ends. Use the ASSIGN/USER command 
to put a logical name into the user table. 

• Process logical name tables contain logical names that are local to your 
process; the ASSIGN and DEFINE commands place logical names in 
the process logical name table by default. 

• Group logical name tables can be used by anyone in a user group (as 
defined by the group number in the user identification code); you must 
use the /GROUP qualifier to refer to the group logical name table. 

• The system logical name table contains entries that can be accessed 
by any process in the system; you must use the /SYSTEM qualifier to 
refer to the system logical name table. 

To place logical names in the group table, you need the GRPNAM priv¬ 
ilege; to place logical names in the system table, you need the SYSNAM 
privilege. 

See the VAX/VMS DCL Dictionary for detailed information on the use of 
logical name tables. 
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Predefined Logical Names 

The operating system supplies a number of predefined logical names. 
Table 1-2 presents the system logical names that are most important for 
PASCAL programmers. 


Table 1-2: Predefined System Logical Names 


Name 

Meaning 

Default 

SYS$DISK 

Current default device 

As specified by the user 

SYS$ERROR 

Default error message file 

User’s terminal (interac¬ 
tive); batch log file (batch) 

SYS$COMMAND 

Default command input 
stream 

User’s terminal (interac¬ 
tive); batch command file 
(batch) 

SYS$INPUT 

Default input file for 
system 

User’s terminal (interac¬ 
tive); batch command file 
(batch) 

SYS$OUTPUT 

Default output file for 
system 

User’s terminal (interac¬ 
tive); batch log file (batch) 

SYS$LOGIN 

User’s default disk and 
directory at login time 

Established by system 
manager 

SYS$SCRATCH 

Default device and direc¬ 
tory for scratch files cre¬ 
ated by the compiler 

Established by system 
manager 

PAS$INPUT 

Input file for PASCAL file 
INPUT 

Not used unless explicitly 
defined 

PAS$OUTPUT 

Output file for PASCAL 
file OUTPUT 

Not used unless explicitly 
defined 

PAS$LINE_LIMIT 

Default maximum number of 

lines written to a text file 

None 
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Deleting Logical Names 

To delete a logical name from a logical name table, use the DEASSIGN 
command. For example: 

$ DEASSIGN TEST 

This command deletes the logical name TEST from the process logical 
name table. To remove logical names from the job, group, and system 
logical name tables, you must use the /JOB, /GROUP, and /SYSTEM 
qualifiers. Note that you must have additional privileges to delete a 
logical name from a logical name table. 

Showing Logical Names 

You can request VAX/VMS to show you the equivalence name for a 
logical name with the SHOW LOGICAL command. This command 
accepts the logical name as a parameter. SHOW LOGICAL performs 
iterative translations if necessary; up to 10 translations can be performed. 

The SHOW TRANSLATION command, on the other hand, does not do 
repeated translation. This command searches one or more logical name 
tables for a specified logical name, and returns the first equivalence name 
of the first match found. The tables are searched in the following order: 
process, job, group and system. For example, suppose you define the 
word TEST with the following ASSIGN command: 

$ ASSIGN TEST. FILE TEST 

If TEST FILE is a logical name pointing to [JUNG.PASCALJPASTEST.PAS, 
the response to the SHOW LOGICAL and SHOW TRANSLATION 
commands are as follows: 

$ SHOW TRANSLATION TEST 

TEST = "TEST FILE" (LNM$PROCESS_TABLE) 

$ SHOW LOGICAL TEST 

TEST = "TEST FILE" (LNM$PROCESS_TABLE) 

TEST.FILE = "[JUNG.PASCAL]PASTEST.PAS" (LNM$PROCESS_TABLE) 
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1.3.2 File-Handling Commands 


Files are very flexible ways of storing data, and there are many operations 
you can do with them. The most basic file-handling operations are: 

• Listing file names 

• Printing and typing the contents of files 

• Moving files 

• Searching files 

• Deleting files 

The following sections briefly describe the commands used to perform 
these basic operations. Note that these commands affect entire files—they 
do not act on the actual contents of the files. 


1.3.2.1 Listing File Names 

The DIRECTORY command lists the files in a specified directory in 
alphabetic order. If you just type a simple DIRECTORY command, files 
in the current default directory will be shown. You can add qualifiers 
to DIRECTORY to get more information and to format the output. For 
example, the command 

$ DIRECT0RY/C0LUMNS=1/DATE=CREATED/PR0TECTI0N 

tells VAX/VMS to list the files in your directory in a single column instead 
of in the default four columns, and to include the date each file was 
created and the protection it has. 

The VAX/VMS DCL Dictionary contains a complete list of the qualifiers 
you can use with DIRECTORY. You can also type HELP DIRECTORY to 
get such a list. 


1-16 


Using the VAX/VMS Operating System 






1.3.2.2 Printing and Typing Files 

The PRINT and TYPE commands allow you to look at the contents 
of a file. If you want to output the file contents on a line printer, use 
the PRINT command. If you want to output the file contents on your 
terminal, use the TYPE command. For example, the command 

$ PRINT ♦.LIS 

causes VAX/VMS to group all files whose file type is LIS into a single 
print job, and then queues the job to be printed. 

You may also add qualifiers to the PRINT command; for instance 

$ PRINT ♦.TXT/C0PIES=10 

causes VAX/VMS to group all files whose file type is TXT into a single 
print job, then queues the job to be printed. When the printer is on line 
and available, 10 copies of each file will be printed. 

Another qualifier to the PRINT command is the /AFTER qualifier. 
/AFTER queues files for later printing. To specify when you want the files 
printed, follow the /AFTER qualifier with the time (in twenty-four hour 
format) you want the file(s) to begin printing. For example: 

$ PRINT TEST.TXT/AFTER=20:10 

This command queues the file TEST.TXT for printing at 8:10 P.M. At that 
time, the job will enter the print queue, and it will print as soon as the 
printer is on line and available. For more information on qualifiers to the 
PRINT command, see the VAX/VMS DCL Dictionary. 

The TYPE command allows you to display a file's contents from your 
terminal. In response to this command, VAX/VMS prints the file on your 
terminal; you can control the outp ut, stop ping to read closely or letting 
text pass quickly. When you type I ctrl/s | , VAX/VMS stops sending char¬ 
acters to your terminal; when you type |ctrl/q| , VAX/VMS starts sending 
characters again. Thu s, you c an scan a file quickly until you reach some¬ 
thing of intere st, type I ctrl/s I and examine the current screen carefully, 
and then type |ctrl/q| to begin scanning again. (If your terminal has a 
NO SCROLL or a HOLD SCREEN key, you can use it like I ctrl/s | and 
|CTRL/Q| to Stop and start the display of your file.) 
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1.3.2.3 Moving Files 

Three DCL commands move files: COPY, RENAME, and APPEND. This 
section describes COPY and RENAME; see the VAX/VMS DCL Dictionary 
for a description of the APPEND command. 

To copy a file from one directory to another or from one device to another, 
use the COPY command, listing the input file specification first and the 
output specification second. Only one output specification is allowed. 
However, you can use wildcards in the output specification to copy a 
group of files to another device directory. For example: 

$ COPY [BLAISE.PASCALDA*.^;* [MINE]*.*;* 

This command copies every file in [BLAISE.PASCAL] that has a name 
starting with A to the directory [MINE]. The files retain their names and 
version numbers. 

The RENAME command can change the directory specification, the file 
name, the file type, and the file version of an existing file. For example, 
the following command changes the directory, name, type, and generation 
of the latest version of the file AVERAGE.OBJ: 

$ RENAME AVERAGE.OBJ [FAULKNER]OLDAVE.IMP;1 


1.3.2.4 Searching Files 

The SEARCH command allows you to search the contents of a file or a 
collection of files for a specified string or strings, and lists all the lines 
containing occurrences of the string(s). For example, to search the entire 
directory [DISALVO.OLDIR] for any files containing the string 'Release- 
Data', you would type 

$ SEARCH [DISALVO.OLDIR]*.*;* Release.Data 

You can control how SEARCH finds matching strings, what it tells you 
about them, and how you can look at the lines surrounding the line where 
the match occurred; see the VAX/VMS DCL Dictionary for qualifiers on the 
SEARCH command. 
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1.3.2.5 Deleting Files 

There are two DCL commands that delete files: DELETE, and PURGE. 

The DELETE command eliminates specified files from the disk and makes 
the space they occupied available for other files. You cannot retrieve 
files once you have deleted them. For this reason, VAX/VMS requires a 
specific version number with each file specification. You can delete the 
latest version of a file by using a version number of 0 or by supplying 
only the semicolon. For example, the command 

$ DELETE TEST.PAS;0 

deletes the most recent version of TEST.PAS, To delete all versions of 
TEST.PAS, use the following command: 

$ DELETE TEST.PAS;* 

The PURGE command deletes all but the latest version of a file. PURGE 
does not require you to enter version numbers, but it will allow you to 
specify how many of the most recent, or highest numbered versions you 
want to keep. An example of the PURGE command follows: 

$ PURGE [BLAISE]*.♦ 

This command purges all but the latest version of every file in the direc¬ 
tory [BLAISE]. 

To keep more than the latest version of files you purge, you must use the 
/KEEP qualifier. 

$ PURGE TEST.PAS/KEEP=2 

This command will purge all but the latest two versions of the file 
TEST.PAS. 


1.3.3 Command Procedures 

VAX/VMS enables you to group DCL commands into files and execute 
them as a unit. You group the commands by creating files called com¬ 
mand procedures (default file type COM). Command procedures consist of 
DCL commands and, optionally, comments. You can create a command 
procedure with a text editor, a program, or another command procedure. 
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For example, you can write a command procedure that accepts the file 
name of a PASCAL program and compiles, links, and runs the program, 
directing the output to your terminal. The same command procedure 
could, if given different input, execute the same sequence of operations 
but direct the output to a file. If the compiler found errors in the program, 
the command procedure could exit before attempting to run the linker. 


1.3.3.1 Executing Command Procedures 

Once a command procedure exists, you can execute the entire group of 
commands in order by appending the file name of the command procedure 
in either of two ways: 

• Interactively: you specify the name of the file following the @ (exe¬ 
cute) command. For example: 

$ (DTESTPRO 

The @ command assumes that the file type of the specified com¬ 
mand procedure is COM. This command executes the procedure 
TESTPRO.COM. 

• You can use the SUBMIT command to submit the command procedure 
to a system batch job queue for execution. After the job completes, the 
system prints a log file that indicates how the job ran. For example: 

$ SUBMIT TESTPRO 

This command places the file TESTPRO.COM in the system batch job 
queue. 


1.3.3.2 Example 

The following example is included to give you an idea of how command 
procedures are constructed to help with your PASCAL program develop¬ 
ment and testing. This procedure issues all the DCL commands necessary 
to create and test a single-module, interactive program. An exclamation 
point (!) indicates that all text on the line that follows the exclamation 
point is a comment. 

$! TEST.COM 

$! 

$! Function - This sample command procedure issues all the DCL 
$! commands necessary to create and test a single-module 

$! interactive PASCAL program. 
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! Format - $ ®TEST [file-name] 

I 

! Establish the way errors will be handled. Should 
! any command return a severity of WARNING or worse, 

! execution of the command procedure will cease. 

I 

ON ERROR THEN EXIT 

! Get the name of the PASCAL source file. Use the first 
! parameter (PI) supplied to this command procedure as the file-name. 
! If none was specified, then ask for it now, putting 
! the response in PI. 

I 

IF PI .NES. THEN GOTO EDIT 
INQUIRE PI "File name: " 

EDIT: 

! For the duration of the next image activation, make 
! SYS$INPUT point to SYSICOMMAND, so that the editor may 
! receive input from the terminal. 

I 

DEFINE/USER SYS$INPUT SYS$COMMAND 

! Invoke a system editor to edit file-name.PAS. The 
! apostrophes around PI request substitution; they are 
! required syntaoc. 

j 

EDIT 'PI'.PAS 

! Type a message on the terminal. This message serves 
! to let you keep track of the command procedure's progress. 

j 

WRITE SYSIOUTPUT "Beginning compile..." 

! Compile the source file. If you normally use other 
! qualifiers on the PASCAL command, you could add them here. 

! 

PASCAL 'PI' 

! Again, type a message on the terminal. Then link the 
! program and delete the object. 

j 

WRITE SYStOUTPUT "Beginning link..." 

LINK 'PI' 

DEL 'PI'.OBJ;* 

! Again, type a message on the terminal. Then equate 
! the input device to your terminal (instead of the command 
! procedure). This will allow you to enter data for your 
! program from your terminal. 
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WRITE SYSIOUTPUT "Beginning run..." 

DEFINE/USER SYSlINPUT SYSICOMMAND 
RUN 'PI' 

! If the user wants to purge previous versions of the source 
! and image files, have the command procedure do so. 

! 

INQUIRE CLEANUP "Purge previous versions?" 

IF CLEANUP THEN PURGE 'PI'.* 
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Chapter 2 

Creating and Modifying Programs 


2.1 Introduction to EOT 

The first step in developing a VAX PASCAL program is to create the 
program's source file. VAX/VMS offers EDT, a text editor that allows 
you to do this. FDT, the DEC Standard Editor, is an interactive general- 
purpose text editor. It offers two modes of operation: line editing, in 
which operations are performed on single lines of text; and character 
editing, in which operations are performed on characters and words as 
well as on lines. 

This chapter provides a brief introduction on EDT. It describes the 
following: 

• How to start and stop EDT 

• How to get help from EDT 

• How to choose and use line modes 

• How to recover interrupted editing sessions 

Other sources of information on EDT are: 

• the VAX EDT Reference Manual 

• the computer-assisted course titled "Introduction to the EDT Editor" 
supplied by the VAX/VMS operating system 

• EDT's help facility, described in Section 2.2 
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Starting EOT 


An editing session begins when you invoke EDT with the EDIT/EDT 
command, and ends when you terminate EDT with the EXIT or QUIT 
command. You may start an editing session and create a file during the 
course of the session, or you may specify an already existing file to be 
modified. EDT does not destroy the contents of any existing file that you 
edit; it simply produces a new version, leaving the old version intact. 

To begin creating or editing a file at your terminal, you enter the DCL 
command EDIT or EDIT/EDT with a file specification. The EDT qualifier 
is optional, however, since EDT is the default editor for VAX/VMS. For 
example, the command 

$ edit test.pas 

starts EDT and looks for a file called TEST.PAS. If the file exists in your 
current default directory, you may continue to edit the file. If the file does 
not previously exist, EDT issues the message "Input file does not exist" to 
tell you that you are creating a new file. You can then decide which line 
mode to use, and begin typing into the file. 


2.1.2 Terminating EDT 

You must use the EXIT command to terminate EDT and create an output 
file. Say, for instance, you have created a new file of text, and wish to exit 
EDT and save your text. The EXIT command will save the file, and give it 
a version number of 1. Each time you re-edit the file, EDT will increment 
that file by 1, making it possible to have many versions of the file in your 
directory. 

By default, EDT creates an output file when you exit which has the same 
name and type as the input file (the file you either created, or used as 
input). The output file will have a version number starting with 1, and 
increment by 1 each time you edit the existing version. 

The QUIT command terminates EDT without creating an output file. You 
can use QUIT if you are simply reading a file without modifying it, or if 
you do not want to save your edits. 
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2.2 Getting Help from EOT 


EDT's on-line help facilities describe all the commands available, and 
present information on many of the conceptual aspects of EDT as well. 
Both line and character editing modes offer online help (see Section 2.3). 

In line editing mode, you invoke the help facility by entering the HELP 
command. Issued without parameters (arguments), this command displays 
information on how to get further help, plus a list of topics for which help 
is available. If you enter one of the topics as a parameter to the HELP 
command, EDT displays information on that subject. For example: 

* HELP DELETE 
DELETE 

The DELETE (abbreviated D) command deletes the line specified 


Additional information available: 

/QUERY 

In character editing mode, you obtain help by pressing the HELP key on 
your keypad. EDT responds with a diagram showing the layout of the 
keypad commands for your terminal type, and you can get information on 
a particular command by typing the key that executes it. 


2.3 Editing Modes 

To use EDT, you must enter an editing mode. EDT provides two editing 
modes, line and character. Which one you should use depends on the 
terminal you have and the editing task you want to perform. Many users 
choose to use some features of both. 

In line editing, the smallest unit of text you can handle is a line. For 
instance, you can use line editing commands for such tasks as deleting 
a group of lines, replacing a line with a group of lines, or substituting 
one string for another throughout the buffer. Line editing commands 
produce an effect on the text you are editing, but you must request EDT 
to type part of the file if you want to see the effect your command had; 
you cannot see it as you type it. You can use line editing from any 
terminal, whether video or hard-copy, or from DCL command procedures. 
Section 1.3.3 contains information on writing command procedures. 
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In character editing, you can refer to characters, words, and sentences, in 
addition to lines; that is, you can use character editing commands for such 
tasks as deleting a word, moving backward two sentences, or inserting a 
character between two existing characters. Character editing commands 
produce an effect on the text you are editing that is immediately reflected 
on the screen. There are two types of character editing: keypad edit¬ 
ing, which accepts commands from the terminal's numeric keypad, and 
nokeypad editing, which accepts commands from the typewriter keyboard. 
Character editing requires that you have a video terminal; keypad editing 
requires that you have a VT52 or VTIOO (or a terminal that emulates a 
VTIOO, such as a VT125). Since character editing is the most widely used 
mode, this chapter will give more detail on character mode keypad editing 
(see Section 2.3.2), and only briefly describe line and nokeypad editing 
modes. 


2.3.1 Line Editing Mode 

Line mode commands include those for reading and writing files, as well 
as the normal editing functions such as inserting, copying, deleting, and 
moving text. 

The advantages of line mode are ease of use and flexibility. For instance: 

• Line mode commands are simple English words that have obvious 
functions. 

• The number of commands is small, so you can learn and remember 
them without much effort. 

• You can use the same line mode commands on a video terminal or on 
a hardcopy terminal. 

• You can write DCL command procedures using line mode commands 
to edit text files. 

The disadvantages of line editing mode are its limited range of functions 
and lack of display. Many of EDT's most powerful functions are available 
only in character mode. For example, key definitions are often very 
useful because they perform complex operations on files, but they must 
be written with nokeypad commands, and will therefore not work in line 
mode. In addition, your inability to see what you are editing may increase 
the number of errors in your text. Therefore, most people who have video 
terminals use character mode. 
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2.3.1.1 Creating a New File in Line Mode 

To create a new file, you issue an EDIT command that specifies a file name 
which does not currently exist in your directory. After EDT responds with 
the asterisk prompt, issue the INSERT command (abbreviated I) followed 
by a carriage return. The cursor then moves to the right 16 spaces; this 
space is left by EDT to accommodate any line numbers. You can now 
enter as many li nes of te xt as you wish. When you are finished, terminate 
the insert with a Ictrl/z| . The following example illustrates this process: 

$ EDIT FIRSTRY.TXT 

Input file does not exist 

[EOB] 

* INSERT 

This is the first line to be inserted. 

This line also enters the buffer. 

This is the final line of text. 

* 

The [EOB] designation indicates that you are currently at end-of-buffer, 
and that any text you insert will be the only text in the buffer. 


2.3.1.2 Inserting Text into an Existing File 

In line editing, you also use the INSERT command to insert text in the 
current buffer. INSERT will position the cursor before inserting the text 
if you include a range specification in the command. For example, the 
command 

* INSERT 200 ;This text will be Inserted at line 200. 

places the cursor at line 200, then inserts the text following the semicolon 
above line 200. If you omit the range specification, INSERT places the 
inserted text in front of the current position. If you want to insert more 
than one line, type a carriage return following the range specification (if 
you included one). You can then type multiple lines of text. When you 
type |CTRL/z| , the text you have typed will be inserted. 
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2.3.1.3 Deleting Text 

Line editing mode provides three ways to delete text from your buffer: 
DELETE, REPLACE, and MOVE. DELETE deletes the specified range. 
REPLACE deletes the specified range and allows you to enter text to 
replace it (using the same form as INSERT to insert multiple lines of text). 
MOVE deletes the specified range of text and moves the text to another 
place in the buffer. 

For example, the command that follows deletes the last five lines of the 
current buffer: 

♦ DELETE END - 6 : END 

(note that you could use THRU instead of the colon): Since you often use 
line numbers to specify ranges, you may frequently execute commands of 
the following form: 

♦ DELETE 100 THRU 600 

If you want to insert text where the deleted text was, you can use 
REPLACE, instead of DELETE followed by INSERT, because REPLACE 
has the same effect as DELETE and INSERT typed in succession. For 
example: 

♦REPLACE REST 

This text will be inserted alter the section ol the 
buffer following the current cursor position has 
been deleted. 

-z 

♦ 

The MOVE command deletes text from its current position and places it 
in another position in the buffer. For example, the following command 
deletes the text in lines 500 through 1000, and places it in front of line 
200. 

* MOVE 600 : 1000 TO 200 

The COPY command has the same effect as MOVE, but COPY does not 
delete the original text. 
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2.3.1.4 Line Editing Commands 

When you invoke EDT, and throughout your editing session, EDT 
prompts you to enter line editing commands by displaying an asterisk. 
For example: 

$ EDIT/EDT METRIC.PAS 

1 PROCEDURE EXAMPLE (INT : INTEGER); 

* 

Line 1 of this example shows the first line of a file in which information 
has already been placed. If you were creating a new file, you would 
receive 

$ EDIT/EDT METRIC.PAS 
Input file does not exist 
[EOB] 

* 

Some of the more useful commands that you can enter in response to the 
line editing prompt (*) are described briefly as follows: 

Table 2-1: Summary of Line Editing Commands 


Command Function 


CHANGE [range] 

CLEAR 

COPY [rangel] TO [range2] 
[/QUERY] 

DEFINE I KEY I MACRO | 

DELETE [range] [/QUERY] 

EXIT [file-spec] 

FILL [range] 

FIND range 


Invokes character mode editing for speci¬ 
fied buffer 

Deletes the contents of a text buffer 

Copies lines specified by rangel to a loca¬ 
tion in an EDT buffer specified by 
range2; does not delete lines from original 
location 

Defines a new or revised key function for 
character mode editing, or defines a 
macro name 

Deletes a specified line or lines 

Terminates EDT, saving the contents of 
the text buffer MAIN as the output file 

Reformats a block of text, filling lines 
with the maximum number of full words 
without exceeding the right margin 

Establishes the first line in range as the 
current line 
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Table 2-1: (Cent.) Summary of Line Editing Commands 


Command 

Function 

HELP [topic ...] 

Displays information on the specified 
EDT command or function 

INCLUDE file-spec [range] 

Copies an external file to a location in a 
text buffer specified by range 

INSERT [range] 

Opens a text buffer for the insertion of 
text at the location specified by range 

MOVE [rangel] TO [range2] 
[/QUERY] 

Moves lines specified by rangel to the lo¬ 
cation specified by range2, deleting the 
lines from the source location 

PRINT file-spec [range] 

Creates a listing file with the specified 
file name 

QUIT [/SAVE] 

Terminates EDT without creating an 
output file, optionally saving the journal 
file 

REPLACE [range] 

Deletes specified lines from a text buffer 
and leaves the buffer open for insertion of 
text 

RESEQUENCE [range] 

Assigns new line numbers to a range of 
lines 

SET [parameter] 

Sets a variety of editor operating parame¬ 
ters 

SET[[NO]NUMBER] 

Enables/disables the display of line num¬ 
bers 

SHOW [parameter] 

Displays specified editor operating 
parameters 

SUBSTITUTE 

/stringl/string2/[range] 

[/QUERY] 

Replaces stringl with string 2, either in 
the current line or in the specified range 

[SUBSTITUTE] NEXT 
[/stringl/string2] 

Replaces stringl with string2, based ei¬ 
ther on the strings specified or on the pre¬ 
vious SUBSTITUTE command 
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Table 2-1: (Cent.) Summary of Line Editing Commands 


Command 

Function 

TAB ADJUST [-]n [range] 

Shifts each line in a range of lines by a 
specified number of logical tab stops 

[TYPE] [range] 

Displays specified lines and makes the 
first line in range the current line; the 
default command 

WRITE file-spec [range] 

Moves a copy of specified text from a 
buffer to a file 

For a complete description of editor control commands, see the VAX EDT 
Reference Manual. 


2.3.2 Character Editing Mode 

Character mode is the most popular editing style, because it is simple 
to learn, quick to use, and allows you to perform editing operations at 
any position in your text instead of line by line, as in line editing mode. 
There are two types of character editing: keypad editing, which accepts 
commands from the terminal's numeric keypad, and nokeypad editing, 
which accepts commands from the typewriter keyboard. If you have a 
VT52 or a VTIOO terminal, or if you have executed the SET KEYPAD 
command, EDT assumes that you want to do keypad editing when you 
enter character mode. In keypad editing, your terminal's numeric keypad 
becomes a command keypad: you enter commands by typing one or two 
keypad keys. Any characters you type on the keyboard are interpreted as 
text (unless you are entering a repeat count — see Section 2.3.2.3). 
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With keypad commands you can: 

• Move the cursor over entities such as words, paragraphs, and pages 

• Delete and undelete entities 

• Change the case of letters 

• Cut pieces of text and paste them back into the buffer 

• Search for strings in either direction 

The advantages of keypad editing are the speed with which you can enter 
text and the continual display of the text you have created. Entering 
commands through the keypad is fast and easy, and entering text by 
simply typing it (rather than preceding it with an insert command as you 
must do in nokeypad editing), speeds the task of entering large amounts 
of text. The continual display of the buffer in which you are editing means 
that you generally have fewer errors (you catch more of them as you enter 
them), and you spend less time reworking what you have already entered. 
The best way to learn keypad editing is to create a temporary file, then 
EDIT that file and familiarize yourself with keypad editing capabilities. 

The only major disadvantage of keypad editing is that you cannot use 
it on hardcopy terminals. Almost all owners of video terminals prefer 
keypad editing. 


2.3.2.1 Creating a New File in Keypad Mode 

To create a new file in keypad mode, enter the EDIT command and a file 
name, just as in line editing mode. When you receive the DCL prompt 
(♦), type the command CHANGE (abbreviated C). There is no INSERT 
command in keypad editing. After you type CHANGE, the screen will go 
blank, and the cursor and [EOB] (end-of-buffer) will appear at the top of 
your file. At this time, you can simply start typing into your file. 


2.3.2.2 Inserting Text into an Existing File 

To modify an existing file, enter the EDIT command, and the name of 
your existing file. When you receive the DCL prompt( times), type the 
command CHANGE. Your screen will first go blank, then fill up with your 
text. You can now edit your text. 
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2.3.2.3 Maneuvering the Cursor 

Before performing most character editing operations, you must move the 
cursor to the location in the file where you wish the operation to take 
place. There are many ways to move the cursor; experience eventually 
teaches which is best in a given situation. 

The format of the command keypad is different for the VT52 and the 
VTIOO. Table 2-2 summarizes the commands that perform these opera¬ 
tions. 

The keypad commands WORD, EOL, LINE, PAGE, SECT, and FIND 
/FNDNXT operate in the current direction; you set your current direction 
with the commands ADVANCE and BACKUP. To move the cursor toward 
the end of the buffer, set the current direction to ADVANCE; to move 
toward the beginning, use BACKUP. When you start EDT, the current 
direction is ADVANCE, and it remains so until you give the BACKUP 
command. BACKUP then remains the current direction until you give the 
ADVANCE command. 
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Figure 2-1: VT52 Keypad 
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Figure 2-2: VT100 Keypad 
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Table 2-2: Keypad Cursor Positioning Keys 


Command 

Effect on Cursor 

ADVANCE 

Sets the current direction toward the end of the buffer 

BACKUP 

Sets the current direction toward the beginning of the 
buffer 

BOTTOM 

Moves the cursor to the bottom of the buffer 

TOP 

Moves the cursor to the top of the buffer 

UP 

Moves the cursor up one line to the same character posi¬ 
tion, if possible, or to the end of the line 

DOWN 

Moves the cursor down one line to the same character 
position if possible, or to the end of the line 

LEFT 

Moves the cursor left (toward the top of the buffer) one 
character position; moves to the end of the previous line 
if the cursor is already at the beginning of a line 

RIGHT 

Moves the cursor right (toward the top of the buffer) one 
character position; moves to the beginning of the next 
line if the cursor is already at the end of a line 

CHAR 

Moves the cursor one character in the current direction; 
has the same effect as LEFT if the current direction is 
BACKUP, the same effect as RIGHT if the current di¬ 
rection is ADVANCE 

WORD 

Moves the cursor over one word in the current direction 
(note that a word is considered to be all characters from 
the beginning of a word to the beginning of the next 
word, including intervening spaces) 

EOL 

Moves the cursor to the next end-of-line in the current 
direction 

LINE 

Moves the cursor one line in the current direction, leav¬ 
ing it at the beginning of the line 

BACKSPACE 

Moves the cursor to the beginning of the current line 

PAGE 

Moves the cursor to the next page in the current direc¬ 
tion 

SECT 

Moves the cursor 16 lines in the current direction 
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Table 2-2 (Cont.): Keypad Cursor Positioning Keys 


Command 


Effect on Cursor 


FIND/FNDNXT 


Searches for a text string and places the cursor at that 
point in the buffer; FIND prompts you for the search 
string, while FNDNXT searches for the next occurrence 
of the last search string 


Using the commands in Table 2-2, you can place the cursor exactly where 
you want it. For example, you can move to the beginning of a line with 
BACKSPACE, then go to the second word on that line with WORD. After 
doing your editing task there, you might want to use EOL to move to the 
end of the current line, or perhaps use SECT to scan the buffer quickly. 
Note that you can use the SET ENTITY editor control command to define 
what will be called a word, sentence, paragraph, and page, increasing the 
flexibility of the cursor-movement commands. 

You can also use repeat counts to perform a number of operations in one 
command. For example, you can move to the right five words by pressing 
the I GOLD I key, then typing 5 on the keyboard (not the keypad), and finally 
pressing the I word | key. I gold! tells EDT to perform the accompanying 
action five times. 



2.3.2.4 Defining a Select Range 


An EDT Select Range is a region of text delimited by the cursor at one 
end and a mark at the other end. To define a Select Range, you place the 
cursor at one end of the region you want to delimit and enter SELECT; 
then you place the cursor at the other end of the region. The text between 
the cursor and the point at which you entered SELECT is the Select Range. 
On a VTl00-type terminal, the Select Range is shown in reverse video. 

You can use the RESET key to tell EDT to forget the last mark you made 
with SELECT. This will cancel the selected range of text. 

Several EDT commands operate on the Select Range, namely APPEND, 
CUT, CHNGCASE, REPLACE, and TADJ (Tab Adjust). APPEND deletes 
the Select Range from the buffer and appends it to the PASTE buffer, 
without affecting the previous contents of PASTE. CUT deletes the Select 
Range and places it in the PASTE buffer, overwriting the previous contents 
of PASTE. CHNGCASE changes the case of every letter in the Select 
Range to its opposite. REPLACE deletes the Select Range and inserts the 
contents of PASTE in its place. TADJ moves the Select Range to the right 
or left (for positive or negative arguments, respectively) a specified number 
of tab stops. See the VAX EDT Reference Manual for a full explanation of 
structured tabs. 
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2.3.2.5 Substituting Text 

Keypad editing has two commands for text substitution: REPLACE and 
SUBS (SUBStitute). REPLACE deletes the text in the Select Range and 
inserts in its place the contents of the PASTE buffer. SUBS works like 
REPLACE except that it includes a FNDNXT (FIND NeXT) operation in 
addition to the deletion and insertion operations. 

To use REPLACE, you first put the replacement string in the PASTE 
buffer. To do this, press the SELECT key, then type in the text you want 
to insert. When you have typed the text, press the CUT key. The PASTE 
buffer is now loaded with the replacement string. 

Next, you must find the string you want to replace. You can do this 
either by positioning the cursor at the correct point, or by using the FIND 
/FNDNXT function. If you position the cursor, you must put the text to be 
deleted into a Select Range. REPLACE then deletes the text in the Select 
Range and inserts the contents of PASTE. If you use FIND or FNDNXT, 
REPLACE deletes the search string before inserting the contents of PASTE. 
For example, suppose you have the following text in your buffer: 

PROCEDURE Test.Date (Valid.Date : BOOLEAN); 

VAR I, J : INTEGER; 

Received : BOOLEAN; 

Date.Array : PACKED ARRAY [1..11] OF CHAR; 

BEGIN 


Received := FALSE; 

FOR I := 1 TO 11 DO 

To replace the variable T' with a new variable, 'Counter', you press the 
SELECT key, then enter the new variable name, then press the CUT key. 
This loads the new variable name into PASTE. At this point, you can 
position the cursor to the first occurrence of 'I' (following the VAR label), 
put a Select Range around 'T, and press the REPLACE key. 'I' is deleted 
and 'Counter' is inserted in its place. 

Alternatively, you can type FIND. The prompt Search for: is printed at 
the bottom of the screen, to which you reply 'I', followed by IenterI . The 
cursor is then placed at the 'i' in Valid. By typing FNDNXT, you can move 
the cursor to the 'T following 'VAR', which you want to replace, so you 
could type REPLACE. Since 'I' is the search string, REPLACE deletes it 
and inserts 'Counter' from the PASTE buffer. You can then type FNDNXT 
again, placing the cursor in front of the I in INTEGER. Since you do not 
want to replace this I, you would type FNDNXT repeatedly until you have 
reached the one you do want to replace, typing REPLACE at that point 
only. 
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SUBS works like REPLACE, but it include s an au tomatic FNDNXT op¬ 
eration. Just as with REPLACE, you press I select | , enter the text to be 
inserted, and press |cut| to load the PASTE buffer. Next, you put the 
string to be replaced in the search string buffer by typing FIND and re¬ 
sponding to the prompt with the string you want to replace. Now you 
can type I subs | repeatedly, and each time you will delete the search string, 
replace it with the contents of I paste! , and move to the next occurrence of 
the search string. 


2.3.3 Nokeypad-Editing Mode 

Like keypad editing, nokeypad editing works with a VT52 or VTl00-type 
video terminal, and continually displays the text in the buffer in which 
you are editing. Unlike keypad mode, characters you type in nokeypad:^ 
mode are assumed to be commands unless you have typed the 1 (Insert) 
command to tell EDT you want to insert text into the current buffer. 

Nokeypad commands allow you to perform the whole range of editing 
facilities available in keypad mode. You can enter line editing commands 
from nokeypad mode with the EXT (EXTend) command. 

One advantage of nokeypad editing is its power in dealing with text 
entities. Unlike line and keypad editing, nokeypad editing can work on all 
the EDT entities. This gives you great flexibility in dealing with a complex 
editing task, since you can refer to pieces of text more precisely. Another 
advantage of nokeypad editing is that it allows you to construct strings of 
nokeypad commands for use as key definitions in keypad editing. In fact, 
nokeypad editing is most often used for this purpose. 

One disadvantage of nokeypad editing is that the command formats are 
relatively complicated. Since many of the nokeypad commands work 
on entities, you must remember the names of the entities as well as 
the commands. Also, some command formats accept repetition counts 
and directions, further complicating the process of entering commands. 
Another disadvantage is that the method of entering text into the buffer 
is inconvenient. You cannot enter commands while yo u are entering text; 
you must first exit from insert mode by typing |ctrl/z| , enter and execute 
your editing commands, and then resume entering text by again using the 
Insert command. Because of these disadvantages, most people who have 
video terminals use character mode. For more information on nokeypad 
editing, see the VAX EDT Reference Manual. 
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2.4 Journaling Facility 


EDT provides a journaling facility to minimize the loss of work that results 
from an unexpected end to the editing session. When you start an editing 
session, EDT automatically opens a journal file (file type JOU), and puts 
every character you type into the file. Thus, if the session is aborted (for 
example, by a system failure, a Ictrl/c| , or a I Ctrl/y I ), almost everything 
you typed will be in the journal file. EDT only writes characters to the 
journal file in groups; thus, the journal file may not contain the last few 
characters you typed. 

To recover your lost editing session, type EDIT filename.txt/RECOVER. 
The /RECOVER qualifier causes EDT to locate the filename.JOU file, and 
applies all editing operations recorded in that file which you made with 
your previous editing session. You can continue to edit when EDT has 
finished recording your previous edits. 
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Chapter 3 


Compiling, Linking, and Executing a 

PASCAL Program 


After creating a VAX PASCAL source program or module, you must first 
compile the program and then link it to produce an executable image; then 
you can execute it. You do this by using the PASCAL, LINK, and RUN 
commands. 

This chapter describes how to use the PASCAL, LINK, and RUN com¬ 
mands and their optional qualifiers. 


3.1 Functions of the Compiler 

The primary functions of the VAX PASCAL compiler are to verify 
PASCAL source statements and to issue messages if there are any 
errors, to generate machine language instructions from the source state¬ 
ments of the PASCAL program, and to group these instructions into an 
object module for the linker. 


3.1.1 The PASCAL Command 

To compile a source program or module, use the PASCAL command. It 
has the form: 

$PASCAL [I</comin£uid-qualilier>. . .]] <lile-8pec 
[K/lile-qualif ier> . . .]]> 
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/command-qualifier 

The name of a qualifier (see Section 3.1.2) that indicates special processing 
to be performed by the compiler on all files listed. 

file-spec 

The name of an input source file that contains the program or module 
to be compiled. If you separate multiple source file specifications with 
commas, the programs are compiled separately. If you separate the file 
specifications with plus signs, the files are concatenated and compiled as 
one program. 

/file-qualifier 

The name of a qualifier (see Section 3.1.2) that indicates special processing 
to be performed by the compiler on the file(s) to which the qualifier is 
attached. 

In interactive mode, you can issue the PASCAL command without an 
accompanying specification for the input file. The system responds with a 
prompt for the file specification: 

$ PASCAL [Mfl 
.File: 

You must type the file specification and any qualifiers on the same line as 
the prompt. If the file specification does not fit on one line, type a hyphen 
(-) as the last character of the line and continue typing the specification 
on the next line. 


3.1.2 PASCAL Qualifiers 

In many cases, the PASCAL command's defaults are sufficient for com¬ 
pilation. However, when you need special processing, you can specify 
PASCAL qualifiers to override the defaults. 

Compiler qualifiers can apply either to the PASCAL command or to the 
specification of the file being compiled. When a qualifier follows the 
PASCAL command, it applies to all the files listed. For example: 

$ PASCAL/LIST A. B. CO 

The /LIST qualifier in this example causes three listing files to be pro¬ 
duced, namely, A.LIS, B.LIS, and C.LIS (which contains the listings for 
both C and D). 
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When a qualifier follows the file specification, it applies only to the 
file immediately preceding it. Files concatenated with plus signs are 
considered one file. For example, the following command produces one 
listing file, D.LIS: 

$ PASCAL A. B, C+D/LIST, F 

By using command and file qualifiers on the same command line, you can 
override the qualifier's effect for selected files. For example, the following 
command produces two listing files, A.LIS and C.LIS: 

$ PASCAL/LIST A, B/NOLIST, C+D 

The /NOLIST qualifier overrides the effect of /LIST on the PASCAL 
command; no listing file for B is produced. 

Table 3-1 lists the qualifiers and defaults that apply to the PASCAL com¬ 
mand. Section 3.1.3 describes how to specify qualifiers on the command 
line. Section 3.1.4 describes in detail the effect of each qualifier on a 
compilation unit. Section 3.1.5 discusses how the effects of some of these 
qualifiers can also be produced by using VAX PASCAL attributes within 
the source program or module. Section 3.1.6 explains how to specify 
output files with and without qualifiers. 


Compiling, Linking, and Executing a PASCAL Program 


3-3 



Table 3-1: PASCAL Command Qualifiers 


Qualifier and 
Negation 


Action 


Default 


/CHECK [=option-list] 
/NOCHECK 

Generates code to perform run¬ 
time checks; /NOCHECK pre¬ 
vents run-time checking 

/CHECK=BOUNDS 

/CROSS—EEFERENCE 

/NOCROSS—REFERENCE 

Produces a cross-reference listing; 
/NOCROSS—REFERENCE sup¬ 
presses the cross-reference listing 

/NOCROSS—REFER¬ 

ENCE 

/DEBUG [=option-list] 
/NODEBUG 

Generates data for the VAX Sym¬ 
bolic Debugger; /NODEBUG sup¬ 
presses debugging data 

/DEBUG=TRACEBACK 

/DIAGNOSTICS |=file-specl 
/NODIAGNOSTICS 

Creates a file containing compiler 
messages and diagnostic informa¬ 
tion; /NODIAGNOSTICS 
suppresses the production of a di¬ 
agnostics file; this qualifier is re¬ 
served for Digital layered products 

/NODIAGNOSTICS 

/ENVIRONMENT [=file-spec]| 
/NOENVIRONMENT 

Produces an environment file; 
/NOENVIRONMENT suppresses 
the production of an environment 
file 

Determined by ENVIRON¬ 
MENT attribute in source 
program 

/ERROR_LIMIT I=nl 
/NOERROR—LIMIT 

Terminates compilation after the 
specified number of errors; 

/NOERROR_LIMIT continues 

compilation regardless of the num¬ 
ber of errors 

/ERROR—LIMIT=30 

/G_FLOATING 

/NOG_FLOATING 

Specifies G_floating representa¬ 

tion and machine instructions for 

values of type DOUBLE; /NOG_ 

FLOATING specifies D_floating 

instructions 

/NOG—FLOATING 

/LIST I=file-spec]l 
/NOLIST 

Produces a source listing file; 
/NOLIST suppresses the source 
listing 

/NOLIST (interactive) 

/LIST=input-file.LIS 

(batch) 
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Table 3-1 (Cont.): PASCAL Command Qualifiers 


Qualifier and 

Negation 

Action 

Default 

/MACHINE_CODE 

/NOMACHINE_CODE 

Includes representation of machine 
code in the source listing file; 
/NOMACHINE_CODE 
suppresses the inclusion of ma¬ 
chine code 

/NOMACHINE_CODE 

/OBJECT I=file-spec] 
/NOOBJECT 

Specifies the name of the object 
file; /NOOBJECT suppresses the 
object file 

/OBJECT=input-file.OBJ 

/OLD_VERSION 

/NOOLD_VERSION 

Specifies compilation conforming 
to the VAX PASCAL Version 1 

language definition; /NOOLD_ 

VERSION cancels compilation un¬ 
der Version 1 rules 

/NOOLD_VERSION 

/OPTIMIZE 

/NOOPTIMIZE 

Requests the compiler to generate 
more efficient code by optimizing 
the compiled program; /NOOP¬ 
TIMIZE prevents optimization 

/OPTIMIZE 

/SHOW 

/NOSHOW 

Specifies list of items to be in¬ 
cluded in the listing file; 

/NOSHOW suppresses a listing 
file 

/SHOW-(DICTIONARY, 
HEADER, INCLUDE, 
SOURCE, STATISTICS) 

/STANDARD [^option] 
/NOSTANDARD 

Prints messages identifying use of 
PASCAL extensions; /NO¬ 
STANDARD suppresses these 
messages 

/NOSTANDARD 

/WARNINGS 

/NOWARNINGS 

Prints diagnostics for warning- 
level errors; /NOWARNINGS 
suppresses these messages 

/WARNINGS 
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3.1.3 Specifying Qualifiers with the PASCAL Command 


As Table 3-1 illustrates, a PASCAL qualifier is often followed by ad¬ 
ditional information that pertains to the qualifier's action. A PASCAL 
qualifier has the form: 



/qualifier 


qualifier 

The name of a PASCAL qualifier, as listed in Table 3-1. 

file-spec 

The name of an output file; used with the /ENVIRONMENT, /LIST, and 
/OBJECT qualifiers only. 

identifier 

The name(s) of one or more options that modify the /CHECK, /DEBUG, 
/OPTIMIZE, and /SHOW qualifiers only, or the name of one option that 
modifies the /STANDARD qualifier. 

n 

An integer constant that indicates the maximum number of errors to 
be detected before compilation ceases; used with the /ERROR-LIMIT 
qualifier only. 

You should use full qualifier names in command procedure files to ensure 
readability. You can, however, abbreviate all command-line qualifiers by 
truncating them on the right. All qualifiers are unique when truncated 
to their first four characters, not including the NO of the negative form. 
To guarantee compatibility with future releases of the system, you should 
not use fewer than four characters. For example, you could abbreviate 
/CROSS-REFERENCE to /CROS and /NOWARNINGS to /NOWARN. 

Examples 

1. $ PASCAL CALC 

The source file CALC.PAS is compiled using the default qualifiers. 
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2. $ PASCAL/CHECK/STANDARD CALC 

The source file CALC.PAS is compiled, and checking code is generated 
for all checking options. The compiler issues warnings for the use of 
language extensions. 

3. $ PASCAL/LIST/CROS CALC 

The source file CALC.PAS is compiled and the listing file CALC.LIS is 
generated. The listing file includes a cross-reference listing. 


3.1.4 Description of PASCAL Command Qualifiers 

This section describes how the PASCAL command qualifiers affect the 
compilation of a PASCAL program or module. 


3.1.4.1 /CHECK 

The /CHECK qualifier directs the compiler to generate code to perform 
run-time checks. A single identifier or a list of identifiers enclosed in 
parentheses may follow /CHECK; these identifiers are the names of 
options that tell the compiler which aspects of the compilation unit to 
check. 

The system issues an error message and normally terminates execution if 
any of the conditions in the option list occur. Table 3-2 lists the available 
checking options, their corresponding actions, and their negations. A 
negated option suppresses a checking feature. 
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Table 3-2: /CHECK Qualifier Options 


Option 

Action 

Negation 

ALL 

Generates checking code for all 
options 

NONE 

BOUNDS 

Verifies that an index expression 
is within the bounds of an ar¬ 
ray’s index type and that charac¬ 
ter-string sizes are compatible 
with the operations being per¬ 
formed 

NOBOUNDS 

CASE_SELECTORS 

Verifies that the value of a case 
selector is contained in the corre¬ 
sponding case-label list 

NOCASE_SELECTORS 

OVERFLOW 

Verifies that the result of an in¬ 
teger computation does not ex¬ 
ceed the machine representation 

NOOVERFLOW 

POINTERS 

Verifies that the value of a 
pointer variable is not NIL 

NOPOINTERS 

SUBRANGE 

Verifies that values assigned to 
variables of subrange types are 
within the subrange; verifies that 
a set expression is assignment 
compatible with a set variable 

NOSUBRANGE 


BOUNDS is the only checking option enabled by default. The /CHECK 
qualifier without options is equivalent to /CHECK=ALL. The negation 
/NOCHECK is equivalent to /CHECK=NONE. 

The CHECK attribute in the source program or module overrides the 
/CHECK qualifier in the command line (see Section 3.1.5.1). 
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3.1.4.2 /CROSS-REFERENCE 

The /CROSS-REFERENCE qualifier produces a cross-reference listing 
of all identifiers. The compiler generates separate cross-references for 
each routine. Note that this qualifier is ignored if the /LIST qualifier is 
disabled. 

By default, /NOCROSS-REFERENCE is enabled. 


3.1.4.3 /DEBUG 

The /DEBUG qualifier specifies that the compiler is to generate infor¬ 
mation for use by the VAX Symbolic Debugger and the run-time error 
traceback mechanism. A single identifier or a list of identifiers enclosed 
in parentheses may follow /DEBUG; these identifiers are the names of 
options that inform the compiler which type of information it should 
generate. 

Table 3-3 lists the available options, their corresponding actions, and their 
negations. A negated option suppresses a debugging feature. 


Table 3-3: /DEBUG Qualifier Options 


Option 

Action 

Negation 

ALL 

Specifies that the compiler should in¬ 
clude symbol and traceback informa¬ 
tion in the object module 

NONE 

SYMBOLS 

Specifies that the compiler should in¬ 
clude in the object module symbol 
definitions for all identifiers in the 
compilation 

NOSYMBOLS 

TRACEBACK 

Specifies that the compiler should in¬ 
clude in the object module traceback 
information permitting virtual ad¬ 
dresses to be translated into source 
program routine names and compiler¬ 
generated line numbers 

NOTRACEBACK 
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TRACEBACK is the only debugging option enabled by default. When you 
specify SYMBOLS without TRACEBACK, the table of compiler-generated 
line numbers is omitted from the debugger symbol table. 

The /DEBUG qualifier without options is equivalent to /DEBUG=ALL. 
The negation /NODEBUG is equivalent to /DEBUG=NONE. See 
Chapter 4, Debugging a PASCAL Program, for more information on 
debugging. 


3.1.4.4 /DIAGNOSTICS 

The /DIAGNOSTICS qualifier creates a file containing compiler messages 
and diagnostic information. If you omit the file specification, the diagnos¬ 
tics file defaults to the name of your source file with a file type of DIA. 
The diagnostics file is reserved for use with Digital layered products such 
as, but not limited to, the VAX Language Sensitive Editor. 


3.1.4.5 /ENVIRONMENT 

The /ENVIRONMENT qualifier produces an environment file in which 
declarations and definitions made at the outermost level of a compilation 
unit are saved. The default file name is the same as the source file name. 
The default file type is PEN, an abbreviation for "PASCAL Environment." 
You can provide a different name for the environment file by including 
a VAX/VMS file specification after the /ENVIRONMENT qualifier, as 
in /ENVIRONMENT=MASTER.PEN. The use of environment files is 
described in Chapter 13, Blocks, Programs, and Modules. 

The /ENVIRONMENT qualifier in the command line overrides the 
ENVIRONMENT attribute in the source program or module (see 
Section 3.1.5.2). Thus, you can suppress an already created environ¬ 
ment file by using /NOENVIRONMENT at compile time. Likewise, you 
can use the /ENVIRONMENT qualifier to change the name of an en¬ 
vironment file by providing a file specification that differs from the one 
provided with the ENVIRONMENT attribute. 

By default, the attributes of the source program or module determine 
whether an environment file is created; however, if the /ENVIRONMENT 
qualifier is specified at compile time, an environment file will always be 
created. 
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3.1.4.6 /ERROR.LIMIT 

The /ERROR-LIMIT qualifier terminates compilation after the occurrence 
of a specified number of error messages, excluding warning-level and 
information-level errors. 

If you specify /NOERROR_LIMIT, compilation continues until 500 errors 
have been detected. 

By default, /ERROR_LIMIT=30 is enabled. 


3.1.4.7 /G-FLOATING 

The /G—FLOATING qualifier directs the compiler to use the G_floating 
representation and instructions for values of type DOUBLE. The negation 
of this qualifier specifies the use of the D_floating representation and 
instructions. 

If the use of the /G_FLOATING qualifier conflicts with a double-precision 
attribute specified in the source program or module (see Section 3.1.5.3), a 
warning occurs. 

Routines and compilation units between which double-precision quantities 
are passed should not mix the D_floating and G_floating data types. Not 
all VAX processors support the G_floating data type. 

By default, /NOG_FLOATING is enabled. 


3.1.4.8 /LIST 

The /LIST qualifier produces a source listing file. If you omit the file 
specification, the listing file defaults to the name of the first source file, 
your default directory, and a file type of LIS. 

The compiler does not produce a listing file in interactive mode unless you 
specify the /LIST qualifier. In batch mode, the compiler produces a listing 
file by default. To suppress the listing file, use the /NOLIST qualifier. 

In either mode, the listing file is not automatically printed. You must use 
the PRINT command to obtain a line printer copy of the listing file. A 
sample listing is shown in Section 3.1.8. 


Compiling, Linking, and Executing a PASCAL Program 3-11 







3.1.4.9 /MACHINE_CODE 



The /MACHINE__CODE qualifier places in the listing file a representation 
of the object code generated by the compiler. The compiler ignores this 
qualifier if the /LIST qualifier is not enabled. The VAX PASCAL compiler 
does not generate object code if it detects errors in the source program or 
module. 

By default, /NOMACHINE_CODE is enabled. 


3.1.4.10 /OBJECT 


The /OBJECT qualifier specifies the name of the object file. To produce 
an object file with an explicit file specification, you must include /OBJECT 
with the PASCAL command. Otherwise, the object file will have the same 
name as the first source file listed and a file type of OBJ. All other file 
specification characteristics (node, device, directory, and version) assume 
the defaults. • 

During the early stages of development, you may find it helpful to sup¬ 
press the production of object files with the /NOOBJECT qualifier until 
the source program or module compiles without errors. 

By default, /OBJECT is enabled. 



3.1.4.11 /OLD.VERSION 


The /OLD—VERSION qualifier directs the compiler to resolve differences 
between VAX PASCAL Versions 1 and subsequent versions by using the 
Version 1 definition. 

The use of this qualifier causes several changes in the language definition. 
See the VAX PASCAL User's Guide for descriptions of these changes. 

By default, /NOOLD—VERSION is enabled so that differences between 
Version 1 and subsequent versions are resolved according to current 
PASCAL definition. 
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3.1.4.12 /OPTIMIZE 

The /OPTIMIZE qualifier directs the compiler to optimize the code for 
the program or module being compiled so that more efficient code will be 
generated. A single identifier or a list of identifiers enclosed in parentheses 
may follow /OPTIMIZE; these identifiers are the names of options that 
tell the compiler which aspects of the compilation unit to optimize. 

Table 3-4 lists the available options, their corresponding actions, and their 
negations. 


Table 3-4: 

/OPTIMIZE Qualifier Options 


Option 

Action 

Negation 

ALL 

Enables all optimization compo¬ 
nents 

NONE 

INLINE 

Enables inline expansion of user- 
defined routines 

NOINLINE 


By default, /OPTIMIZE=ALL is enabled. The /OPTIMIZE quali¬ 
fier without options is equivalent to /OPTIMIZE=ALL. The negation 
/NOOPTIMIZE is equivalent to /OPTIMIZE=NONE. 

Some PASCAL programs that run under VAX PASCAL Version 1, how¬ 
ever, may require the use of the /NOOPTIMIZE qualifier in order to 
execute the same way with Version 3. 

You should also consider using /NOOPTIMIZE when you are using either 
/DEBUG or /CHECK. Allowing optimizations to occur may make debug¬ 
ging difficult and may obscure some sections of the compilation unit that 
you would like to check. (See Chapter 4, Debugging a PASCAL Program 
and the VAX PASCAL User's Guide for details.) 

The OPTIMIZE and NOOPTIMIZE attributes in the source program or 
module override the /OPTIMIZE and /NOOPTIMIZE qualifiers in the 
command line (see Section 3.1.5.4). 
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3.1.4.13 /SHOW 

The /SHOW qualifier specifies a list of items to be included in the listing 
file. 

A single identifier or a list of identifiers enclosed in parenthesis may 
follow /SHOW; these identifiers are the names of options that inform the 
compiler which type of information it should generate. Table 3-5 lists the 
available options, their corresponding actions, and their negations. 


Table 3-5: /SHOW Qualifier Options 


Option 

Action 

Negation 

ALL 

Enables listing of optional com¬ 
ponents 

NONE 

DICTIONARY 

Enables listing of %DICTION- 
ARY files 

NODICTIONARY 

HEADER 

Enables page headers 

NOHEADER 

INCLUDE 

Enables listing of %INCLUDE 
files 

NOINCLUDE 

INLINE 

Enables listing of inline sum¬ 
mary listing 

NOINLINE 

SOURCE 

Enables listing of PASCAL 
source code 

NOSOURCE 

STATISTICS 

Enables listing of compilation 
statistics 

NOSTATISTICS 


The compiler ignores the /SHOW qualifier if the /LIST qualifier is not 
enabled. The default for the /SHOW qualifier is /SHOW=(DICTIONARY, 
HEADER, INCLUDE, SOURCE, STATISTICS). The negation /NOSHOW 
is equivalent to /SHOW=NONE. 
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3.1.4.14 /STANDARD 

The /STANDARD qualifier tells the compiler to generate information- 
level messages wherever the compilation unit uses nonstandard PASCAL 
features. Nonstandard features fall under either the ISO (ISO 7185- 
1983(E)) or ANSI (IEEE 770x3-97 1983 American National Standards 
Institute, Inc.) standards. For the purposes of this chapter, the ISO and 
ANSI standards are referred to as the PASCAL ''standard". 


By default, these information-level messages are written to the error 
file SYS$ERROR. (Nonstandard features are the language extensions 
incorporated in VAX PASCAL. Refer to Appendix F, Error Detection for a 
list of all the extensions.) 


You may specify one of the following options with the /STANDARD 
qualifier, which has the form: 


/STANDARD 


l-\ 

f ANSI 1 
ISO 

11 

L 1 

[ NONE J 

I J 


By default, /NOSTANDARD is enabled. 


3.1.4.15 /WARNINGS 

The /WARNINGS qualifier directs the compiler to generate diagnostic 
messages in response to warning-level errors. By default, these messages 
are written to the error file SYS$ERROR. A warning diagnostic message 
indicates that the compiler has detected acceptable but unorthodox syntax 
or has performed some corrective action; in either case, unexpected results 
may occur. 

Note that messages generated when the /STANDARD qualifier is enabled 
appear even if /NOWARNINGS is enabled. 

By default, /WARNINGS is enabled. Appendix F, Error Detection lists the 
compiler diagnostic messages. 


3.1.5 Specifying Attributes in the Source Program or Module 

Some of the features available with the PASCAL qualifiers can alter¬ 
natively be specified in the source program or module by attributes. 
Chapter 14, Attributes contains complete information on all the VAX 
PASCAL attributes. This section describes the relationship between 
attributes and PASCAL command qualifiers that perform the same actions. 
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3.1.5.1 CHECK 

The CHECK attribute enables error checking of routines and compilation 
units. CHECK has the form: 

CHECKladentifier}, . . .I 

The available options are identical to those of the /CHECK command-line 
qualifier: ALL, BOUNDS, CASE_SELECTORS, OVERFLOW, POINTERS, 
SUBRANGE, and their negations. As with the /CHECK qualifier, only the 
BOUNDS option is enabled by default when compilation begins. 

By using the CHECK attribute in the source program or module, you can 
select routines that should be checked for certain conditions. For example, 
you can check only pointer references and integer overflow in one routine, 
and then check only case-selector values and assignments to variables of 
subrange types in another. 

With the /CHECK qualifier, however, you are restricted to checking the 
entire source program or module for the same specified or default options. 

The CHECK attribute and any accompanying options take precedence 
over the /CHECK qualifier and any options specified with it. 


3.1.5.2 ENVIRONMENT 

The ENVIRONMENT attribute causes the creation of an environment file 
in which declarations and definitions made at the outermost level of a 
compilation unit are saved. It has the form: 

ENVIRONMENT(name-string) 

You can name the environment file by specifying a VAX/VMS file de¬ 
scription in the name-string following the attribute. (A name-string is a 
sequence of characters enclosed in apostrophes; it cannot use the extended 
string syntax.) The default file type is PEN, an abbreviation for "PASCAL 
Environment." 

As with the /ENVIRONMENT qualifier, the ENVIRONMENT attribute 
applies only to compilation units and not to routines. 

The /ENVIRONMENT qualifier overrides the ENVIRONMENT attribute. 
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3.1.5.3 G.FLOATING 

The G_FLOATING attribute indicates that G_floating data and instruc¬ 
tions should be used in the entire compilation unit for all operations 
involving double-precision values. The negation of this attribute, 
NOG_FLOATING, specifies the use of the D_floating representation and 
instructions. 

As with the /G_FLOATING qualifier, the G_FLOATING attribute applies 
only to compilation units and not to routines. 

VAX PASCAL generates a warning if an attribute specifying the hardware 
representation of double-precision values conflicts with the corresponding 
command-line qualifier. 


3.1.5.4 OPTIMIZE 

The OPTIMIZE attribute directs the compiler to optimize the code for 
routines and compilation units. OPTIMIZE has the form: 

OPTIMIZE [[{identifier}, . . . I 

The available options are identical to those of the /OPTIMIZE command 
line qualifier: ALL, INLINE, and their negations. As with the /OPTIMIZE 
qualifier, /OPTIMIZE=ALL is enabled by default when compilation begins. 
The NOOPTIMIZE attribute disables optimization for a particular routine 
or compilation unit. 

The VAX PASCAL compiler optimizes code by default, but if some 
sections of your compilation unit do not conform to the PASCAL standard, 
optimization of these sections may cause unexpected results when you run 
the program. You may thus selectively enable and disable optimization 
depending on the requirements of a routine or compilation unit. The 
/OPTIMIZE and /NOOPTIMIZE qualifiers, however, control whether or 
not the code for an entire source program or module is optimized. 

The optimization attributes take precedence over the /OPTIMIZE and 
/NOOPTIMIZE command-line qualifiers. 
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3.1.6 Specifying Output Files 


The compiler produces listing files, object files, and environment files as 
output. You can control the production of these files by using the /LIST, 
/OBJECT, and /ENVIRONMENT qualifiers with the PASCAL command. 
The PASCAL compiler generates output files according to the following 
rules: 

• If you specify one source file, one output file is generated. 

• If you separate multiple source files with commas, one output file is 
generated for each source file. 

• If you separate multiple source files with plus signs, the files are 
concatenated, and one output file is generated. 

• When you include a qualifier in a list of concatenated files, the qualifier 
affects all files in the list. 

• You can use both plus signs and commas in the same command line 
to produce different combinations of concatenated and separate output 
files. 

Examples 

1. $ PASCAL/LIST A, B. C 

Source files A.PAS, B.PAS, and C.PAS are compiled as separate files, 
producing object files named A.OBJ, B.OBJ, and C.OBJ, and listing files 
named A.LIS, B.LIS, and C.LIS. 

2. $ PASCAL X + Y + z 

Source files X.PAS, Y.PAS, and Z.PAS are concatenated and compiled 
as one file, producing an object file named X.OBJ. In batch mode, this 
command also produces the listing file X.LIS. 

3- $ PASCAL/OBJECT*SQUARE |RET| 

.File: CIRCLE 

The file CIRCLE.PAS is compiled, producing an object file named 
SQUARE.OBJ, but no listing file. (This example applies to interactive 
mode only.) 

4. $ PASCAL A + B/LIST, C 

Two object files are produced: A.PAS and B.PAS are concatenated to 
become A.OBJ, and C.PAS becomes C.OBJ. In interactive mode, this 
command produces the listing file B.LIS. In batch mode, it produces 
two listing files: B.LIS and C.LIS. 
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5. PASCAL A + CIRC/NOOBJECT X 

The command shown above completely suppresses the object file; that 
is, source files A.PAS, CIRC.PAS, and X.PAS are concatenated and 
compiled, but no object file is produced. 

6. $ PASCAL/LIST [DIR]M 

The source file M.PAS in directory [DIR] is compiled, producing an 
object file named M.OBJ and a listing file named M.LIS. The compiler 
places the object and listing files in the default directory. 


3.1.7 Compiler Listing Example 

A complete compiler listing has three major parts: 

• A source code listing, generated by the /LIST qualifier 

• A cross-reference listing, generated by the /CROSS-REFERENCE 
qualifier (if a listing is being generated) 

• A machine code listing, generated by the /MACHINE-CODE qualifier 
(if a listing is being generated) 

Figure 3-1 is a complete compiler listing. The circled numbers in 
the listing correspond to the numbered examples and explanations in 
Section 3.1.8. 
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Figure 3—1: VAX PASCAL Compiler Listing 


O 


SAMPLE 
VI.0-1 



-LINE-IDC-PL-SL- 


Source Listing 

O 


0 

5-Feb-1985 


6-NOV-1984 

O 


14:60:46 

16:43:14 


0 

VAX Pascal V3.0-1 


DISKIUSER[SMITH]SAMPLE.PAS;10 (1) 

© 


O 

Page 

© 


00001 0 0 [inherit('sysSlibrary:starlet').idsnt('VI.0-1')] 

1 

^PASCAL-I-STDATTRLST, (1) Nonstamdard: attribute list 
00002 0 0 program sample(input,output); 

00003 0 0 

00004 C 0 0 { This sample prograun demonstrates the VAX PASCAL V3 listing features 

00006 0 0 

00006 0 0 ^include 'testinc.pas' 

0 10 0 
%PASCAL-I-STDINCLUDE. (1) Nonstandard: ^INCLUDE directive 
00007 I 0 0 var 

00008 I 00 i,state : unsigned; 

1 


%PASCAL-I-STDPRETYP. (1) Nonstandard: predefined type UNSIGNED 


00009 

0 

0 




00010 

0 

1 

begin 



00011 

0 

1 

for i :* 1 

to 6 

do 

00012 

0 

2 

begin 



00013 

0 

2 

if not 

odd( 

Ireadef(0,state) ) 


1 


%PASCAL-I-STDSPECHAR. (1) Nonstandard: 


00014 

0 

2 

then 

00016 

0 

2 

writelnC IREADEF 

00016 

0 

2 


00017 

0 

2 

writeln('The value 

00018 

0 

1 

end; 

00019 

0 

0 

end. 


"$" or in identifier 
error'); 

of event flags 0-31 is state); 


> 
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Figure 3—1 

(Cont.): 

VAX PASCAL Compile 

SAMPLE 




5-Feb-1985 

VI.0-1 



Cross Reference Listing 6-Nov-1984 

dD 


0 



IREADEF 


FUNC 

[HIDDEN. EXTERNAL(SYSIREADEF ) . UNBOUND. ASYNCHRONOUS] 




* 

13 ® 

I 


VAR 

UNSIGNED { IN 

PROGRAM SAMPLE > 




8 

11 = 

INPUT 


VAR 

[EXTERNAL(PAS$FV_INPUT)] TEXT { IN PROGRAM SAMPLE > 

* o 

ODD 


FUNC 

{ BUILTIN } : 

BOOLEAN ® 




♦ 

13 

OUTPUT 


VAR 

[EXTERNAL(PAS$FV_OUTPUT)] TEXT { IN PROGRAM SAMPLE } 





2 15 17 

SAMPLE 


PROG 

[PSECTdCODE)] 

o 


STATE 


VAR 

UNSIGNED { IN 

PROGRAM SAMPLE > 




8 

13 P 17 

UNSIGNED 


TYPE 






« 

8 

WRITELN 


PROC 

< BUILTIN > 





♦ 

15 17 

ENVIRONMENT 

FILE SUMMARY 

0 

«1 

SYSICOMMON 

:[SYSLIB]STARLET.PEN;6 

1 KEY TO REFERENCE 

1 

FLAGS: 

0 1 

1 

1 

1 

* 

predeclared 

1 

1 

1 

= 

modified 


1 

1 

A 

address 

of 

1 

1 

F 

forward 

declared procedure or function | 

1 

L 

label defining reference | 

1 

P 

passed as a parameter, 

possibly modified or called | 

1 

R 

REIAD operation done 

1 

1 

W 

used in 

a WITH statement | 


VAX Pascal V3.0-1 

DISKSUSER:[SMITH]SAMPLE.PAS;10 (1) 




Page 2 


Compiling, Linking, and Executing a PASCAL Program 3-21 








Figure 3—1 (Cent.): VAX PASCAL Compiler Listing 


SAMPLE 
VI.0-1 


Generated Code 


5- Feb-1985 14:50:45 VAX Pascal V3.0-1 

6- NOV-1984 16:43:14 DISK$USER:[SMITH]SAMPLE.PAS;10 (1) 

.TITLE SAMPLE 
.IDENT \V1.0-1\ 


00000 




.PSECT $C0DE.PIC.CON.REL.LCL.SHR.EXE.RD.NOWRT.2 


00 

72 

6F 

72 

72 

65 

20 

46 

45 

44 

41 

45 

52 

24 

00000 

C.AAA: 

ASCII 

\$R£ADE1F error\<0><0><0> 













00 

00 

OOOOE 




65 

20 

66 

6F 

20 

65 

75 

6C 

61 

76 

20 

65 

68 

54 

00010 

C.AAB: 

•ASCII 

\The value of event flags 

33 

2D 

30 

20 

73 

67 

61 

6C 

66 

20 

74 

6E 

65 

76 

OOOIE 













20 

73 

69 

20 

31 

0002C 





®( 


94 


(D 





01 

00031 

NOP 





01 

00032 

NOP 




( 

§ 

00033 

0 

NOP 

© 




0004 

00000 SAMPLE: .WORD 

‘M<R2> 


5E 

04 

C2 

00002 

SUBL2 

#4.SP 


5C 

01 

DO 

00005 1$: 

MOVL 

#1.R12 


52 

5C 

DO 

00008 2$: 

MOVL 



FC 

AD 

9F 

OOOOB 

PUSHAB 

STATE 



00 

DD 

OOOOE 

PUSHL 

#0 

OOOOOOOOG 

© 

EF 

02 

FB 

00010 

CALLS 

#2.SYS$READEF 

OOV 

50 

E8 

00017 

BLBS 

R0,4$ 


FFFFFFAC 

EF 

9F 

OOOIA 

PUSHAB 

C.AAA 



OD 

DD 

00020 

PUSHL 

#13 

OOOOOOOOG 

EF 


9F 

00022 

PUSHAB 

PAS$FV_OUTPUT 

OOOOOOOOG 

EF 

03 

FB 

00028 

CALLS 

#3.PAS$WRITE_STR 


OOOOOOOOG 

EF 

9F 

0002F 

PUSHAB 

PAS$FV_OUTPUT 

OOOOOOOOG 

EF 

01 

FB 

00035 

CALLS 

#1.PAS$WRITELN2 

FFFFFF9A 

EF 

9F 


0003C 4$: 

© PUSHAB 

C.AAB 



21 

DD 

00042 

PUSHL 

#33 


OOOOOOOOG 

EF 

9F 

00044 

PUSHAB 

PAS$FV_OUTPUT 

OOOOOOOOG 

EF 

03 

FB 

0004A 

CALLS 

#3.PASlWRITE.STRING 



OA 

DD 

00051 

PUSHL 

#10 


FC 

AD 

DD 

00053 

PUSHL 

STATE 


OOOOOOOOG 

EF 

9F 

00056 

PUSHAB 

PASSFV.OUTPUT 

OOOOOOOOG 

EF 

03 

FB 

0005C 

CALLS 

#3.PAS$WRITE_UNSIGNED 


OOOOOOOOG 

EF 

9F 

00063 

PUSHAB 

PAS$FV_OUTPUT 

)0000G EF 


01 

FB 

00069 

CALLS 

#1.PAS$WRITELN2 


5C 

05 

F3 

00070 

AOBLEQ 

#5,R12,2$ 


50 

01 

DO 

00074 

MOVL 

#1.R0 

© 



04 00077 

©© 

RET 

© 

© 

Routine 

Base: $C0DE ♦ 

00034 


OOOAC 

.END 



:000i 


;0011 

;0013 

;0015 


:0017 


:0019 
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Figure 3-1 (Cont.): VAX PASCAL Compiler Listing 


SAMPLE 
VI.0-1 


5-Feb-1985 14:50:45 
Pascal Compilation Statistics 


VAX Pascal 
6-NOV-1984 16:43:14 


V3.0-1 Page 4 

DISKIUSER:[SMITH]SAMPLE.PAS;10 (1) 


PSECT S 



Name 


Bytes 


Attributes 


ICODE 


172 NOVEC.NOWRT, RD. EXE. SHR, LCL. REL, 


CON. PIC.ALIGN(2) 


ENVIRONMENT STATISTICS 

File 


- Symbols - 

Total Loaded Percent 


SYSICOMMON:[SYSLIB]STARLET.PEN;6 


18733 4 0 


COMMAND QUALIFIERS 

PAS/LIST/MACHINE/CROSS/STANDARD TESTPROG ® 

/CHECK*(BOUNDS.NOCASE.SELECTORS.NOOVERFLOW.NOPOINTERS.NOSUBRANGE) 

/DEBUG*(NOSYMBOLS.TRACEBACK) 

/SHOW*(DICTIONARY.INCLUDE.NOINLINE.HEADER.SOURCE.STATISTICS) 

/OPTIMIZE 

/NOENVIRONMENT 

/LIST*DOCD$:DISKIUSER;[SMITH]SAMPLE.LIS;3 ® 

/OBJECT*DOCD$:DISKIUSER:[SMITH]SAMPLE.OBJ;3 

/CROSS.REFERENCE /ERR0R_LIMIT=30 /NOG.FLOATING /MACHINE.CODE /NOOLD.VERSION /STANDARD=ANSI /WARNINGS 


IMPILER INTERNAL TIMING 



Phase 

Faults 

CPU Time 

Elapsed Time 

Initialization 

102 

00:00.4 

00:02.1 

Source Analysis 

791 

00:07.6 

01:24.2 

Source Listing 

477 

00:00.9 

00:05.9 

Tree Construction 

38 

00:00.1 

00:00.4 

Flow Analysis 

12 

00:00.1 

00:00.4 

Value Propagation 

2 

00:00.0 

00:00.0 

Profit Analysis 

26 

00:00.1 

00:00.9 

Context Analysis 

45 

00:00.3 

00:01.1 

Name Packing 

9 

00:00.0 

00:00.0 

Code Selection 

12 

00:00.1 

00:00.3 

Final 

85 

00:00.3 

00:01.6 

TOTAL 

1608 

00:09.9 

01:37.1 

IMPILATION STATISTICS 




Informationals: 4 




Warnings: 0 




Elrrors: 0 




Fatals; 0 




CPU Time: 00:09 

9 

(115 Lines/Minut 

e) 

Elapsed Time: 01:37. 

1 



Page Faults: 1608 




Compilation Complete 
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3.1.8 Compiler Listing Format 


This section explains the format of the compiler listing and describes each 
part in detail. In the examples of each part, significant items are marked 
with circled numbers that correspond to the explanations following the 
examples. The numbers in Section 3.1.7 correspond with the numbers in 
this section. 

Each page of the compiler listing begins with a title line: 

o e e o 

SAMPLE 28-N0V-1984 14:20:20 VAX PASCAL V3.0-1 Page 1 

The title line has four parts: 

1. The module name, which corresponds to the name in the program or 
module heading. 

2. The date (day, month, year) and time (hour, minute, second) of 
compilation. 

3. The PASCAL compiler name and version number. 

4. The page number. 


3.1.9 Source Code Listing 

On each page of the source code listing, a line under the title line provides 

information about the source file. 

0 © O © © 

VI.0-1 Source Listing 28-N0V-1984 13:30:48 DISK$USER:[SMITH]SAMPLE.PAS;1 (1) 

The source file information consists of five parts: 

5. The module identifier, which is either specified by the IDENT attribute 
or is the default 01. 

6. The subtitle that describes which part of the complete listing is found 
on this page. 

7. The date (day, month, year) and time (hour, minute, second) of source 
file creation. 

8. The VAX/VMS file specification of the source file that is being com¬ 
piled when the compiler directs output to a new page of the listing. 

9. The page number of the source file. 
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Source Code 


The source code is printed in the source code listing with numbers that 
correspond to each line. 

0 000 

-LINE-IDC-PL-SL- 

00001 0 0 [INHERITCSYSILIBRARY:STARLET').IDENT('Vl.O-l’)] 

1 

%PASCAL-I-STDATTRLST. (1) Nonstandard: attribute list 
00002 0 0 PROGRAM Sample(INPUT.OUTPUT); 

00003 0 0 

00004 C 0 0 { This sample program demonstrates the VAX PASCAL V3 listing features > 

00006 0 0 

00006 0 0 ^INCLUDE 'Testinc.pas’ 

1 

^PASCAL-I-STDINCLUDE. (1) Nonstandard: ^INCLUDE directive 
00007 I 0 0 VAR 

00008 I 00 I.STATE : INTEGER; 

00009 0 0 

00010 0 1 BEGIN 

00011 0 1 FOR I := 1 TO 6 DO 

00012 0 2 BEGIN 

00013 02 IF NOT ODD( Ireadef(0.state) ) 

1 

XPASCAL-I-STDSPECHAR. (1) Nonstandard: or in identifier 

00014 0 2 THEN 

00015 0 2 WRITELNCIREADEF error’); 

00016 0 2 

00017 0 2 WRITELNCThe value of event flags 0-31 is ’.STATE); 

00018 0 1 END; 

00019 0 0 END. 

10. Source code line numbers—The compiler assigns unique line numbers 
to the lines of source code in a PASCAL compilation unit. These line 
numbers appear in the leftmost column of the source code listing. 

The symbolic traceback that is printed if your program encounters an 
error at run time refers to these line numbers; in addition, the VAX 
Symbolic Debugger uses these line numbers when controlling program 
execution. 

11. Listing flags—The compiler records additional information about each 
source line. Each source line can have any or all of the following 
qualities: 

• I—The source line came from a %INCLUDE directive. 

• D—The source line came from a %DICTIONARY directive. 

• C—The source line contains nothing but comments and white 
space. 

12. Procedure nesting level—The compiler keeps track of the declaration 
depth of PROCEDURES and FUNCTIONS. The level is incremented 
every time a PROCEDURE or FUNCTION reserved word occurs and 
is decremented when the end of the block is reached. The procedure 
level reflects the level that is active at the end of the source line. 
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13. Statement nesting level—The compiler keeps track of the nesting depth 
of structured statements. The level is incremented every time a BEGIN, 
REPEAT, or CASE statement is seen. The level is decremented when 
the end of a structured statement is seen. The statement level reflects 
the level that is active at the end of the source line. 

Diagnostic Messages 

The source code listing includes errors, warnings, and informational 
messages produced by the compiler. The lines beneath the source code 
line in which the error is reported specify which kind of message was 
generated. For example: 

00006 0 0 */,INCLUDE ' testinc . pas' 

1 ® 

y,PASCAL-I-STDINCLUDE, (1) Nonstandard: '/.INCLUDE directive 

® ® 0 

Diagnostic messages include the following information: 

14. A digit or letter that points to the position on the line where the error 
probably occurred. 

15. A code that indicates the name of the compiler (PASCAL), the severity 
of the error (either I (INFORMATIONAL), W (WARNING), E (ERROR), 
or F (FATAL)), and the name of the error message generated. 

16. A digit or letter in parentheses that corresponds to the digit or letter 
that identifies the position where the error was detected. 

17. The text that corresponds to that of each error code. 

Note that one source code error often causes the compiler to detect more 
errors at the same position. 
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3.1.10 Cross-Reference Listing 


The cross-reference listing, generated by the /CROSS-REFERENCE and 
/LIST qualifiers, follows the source code listing. The listing begins with a 
title line and the subtitle Cross Reference Listing. The format of this line 
is identical to the format of the title line in the source code listing. 

The entries in the cross-reference listing are the names of every identifier, 
both predeclared and user-declared, and every label to which the source 
code refers. 


<D 





IREADEF 

FUNC 

[HIDDEN. EXTERNAL(SYSIREADEF). 



* 

13 ® 


I 

VAR 

INTEGER { IN 

PROGRAM 

SAMPLE } 



8 

11 = 


INPUT 

VAR 

[EXTERNAL(PAS$FV_INPUT)] TEXT • 



♦ 

2 


INTEGER 

TYPE 

* 

8 


ODD 

FUNC 

{ BUILTIN > 

: BOOLEAN © 



♦ 

13 


OUTPUT 

VAR 

[EXTERNAL(PAS$FV_0UTPUT)] TEXT 

SAMPLE 

PROG 

[PSECTdCODE)]^ 

15 

STATE 

VAR 

INTEGER {IN 

PROGRAM 

SAMPLE } 



8 

13 P 

17 

WRITELN 

PROC 

{ BUILTIN > 





* 

15 

17 

ENVIRONMENT FILE SUMMARY 



#1 

SYSISYSROOT:[SYSLIB]STARLET,PEN;16 

1 KEY TO REFERENCE 

1 

FLAGS: 

© 

1 

1 

1 

♦ predeclared 
= modified 



1 

A address 

of 



1 

F forward 

declared procedure or 

function 






17 


L label defining reference 

P passed as a parameter, possibly modified or called 
R READ operation done 
W used in a WITH statement 


The cross-reference listing contains the following information: 
18. Labels and identifiers, listed in alphabetical order. 
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19. An abbreviation for the program element represented by a label or an 
identifier. Program elements can be labels, symbolic constants, types 
(predefined and user-defined), variables, field identifiers, procedures 
and functions (predeclared and user-written), formal parameters, 
programs, and modules. 

20. For symbols inherited from an environment file, an environment file 
number is given. Refer to the Environment File Summary (#25). 

21. The line numbers where each identifier or label is used. The first line 
number indicates where the label or identifier is declared. (Note that 
the declarations of predeclared identifiers are not listed.) Subsequent 
references to labels and identifiers are noted by abbreviations that 
describe the specific use. 

22. For predeclared routines, the notation ( BUILTIN }. If the routine is 
a function and its result type can be determined at compile time, the 
type is listed. 

23. For executable blocks, a list of the attributes associated with the block, 
and the name of the declaring block enclosed in braces ({ and }). If the 
block is part of a function, the function result type is listed. 

24. For variables, a list of the attributes associated with the variable, an 
identifier or description that designates the variable's type, and the 
name of the block in which the variable was declared. If the variable 
is a record field, the name of the record type (if it has a name) is listed 
in braces. 

25. A list of all environment files inherited by the compilation unit. 

26. A key to the abbreviations that indicate how an identifier or a label is 
used. 


3.1.11 Machine Code Listing 

The machine code listing, generated by the /MACHINE-CODE and 
/LIST qualifiers, follows the cross-reference listing. Note that the VAX 
PASCAL compiler does not generate machine code for a source program 
if error messages are produced at compile time. Fiowever, informational 
and warning messages do not interfere with the compiler's generation of 
machine code. 

The machine code listing begins with a title line and the subtitle Generated 
Code. The format of this line is identical to the format of the title lines in 
the source code and cross-reference listings. 
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The following examples illustrate the kinds of information contained in 
the machine code listing. 

Title 


.TITLE SAMPLE 
.IDENT \V1.0-1\ 

27. The object module title and ident fields. The object module title is the 
same as the name specified in the program or module heading. The 
ident field is derived from the IDENT attribute or is the default 01. 

PSECT Information 

.PSECT $C0DE,PIC,CON.REL.LCL,SHR,EXE.RD.NOWRT,2 © 


28. Information about the program sections in which storage has been 
allocated (except program sections containing automatic variables). The 
name of each program section is followed by a list of its properties and 
then its contents. 


Machine Instructions 



FFFFFFAC 

EF 

9F OOOIA 

PUSHAB 

C.AAA 



OD 

DD 00020 

PUSHL 

#13 


OOOOOOOOG 

EF 

9F 00022 

PUSHAB 

PAS$FV_0UTPUT 

OOOOOOOOG 

EF 

03 

FB 00028 

CALLS 

#3.PASlWRITE.STRING 


OOOOOOOOG 

EF 

9F 0002F 

PUSHAB 

PAS$FV_OUTPUT 

OOOOOOOOG 

EF 

01 

FB 00036 

CALLS 

#1.PAS$WRITELN2 


FFFFFF9A 

EF 

9F 0003C 4$: 

PUSHAB 

C.AAB 



21 

DD 00042 

PUSHL 

#33 


OOOOOOOOG 

EF 

9F 00044 

PUSHAB 

PAS$FV_OUTPUT 


29. The contents of a program section that contains machine instructions; 
note that the formats of these instructions are similar (but not identical) 
to the listings of VAX MACRO source code. 

Literal Constants 

® C.AAA: .ASCII \$READEF error\ 

C.AAB: .ASCII \The value of event flags 0-31 is\<0> 

30. Names of the form C.AAA, C.AAB, and so forth, that the compiler 
generates for literal constants such as character-string prompts. 
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Entry Point and Save Mask Definition 

SAMPLE: .WORD “M<R2> 

For each executable block: 

31. An entry point; if the block is global, the entry point is specified by 
.ENTRY; otherwise, the entry point is specified by the program or 
routine name and .WORD. 

32. A register save mask definition 


Sides of Listing 


© 

© 

52 

5C 

DO 

00008 

FC 

AD 

9F 

OOOOB 


00 

DD 

OOOOE 

© OOOOOOOOG EF 

02 

FB 

00010 

© OOV 

50 

E8 

00017 

FFFFFFAC 

EF 

9F 

OOOIA 


OD 

DD 

00020 


The left side of the listing contains: 

33. The current location counter value appears in the center of the listing 
and divides the listing into halves. The location counter for routines is 
expressed as an offset from the beginning of the routine. To compute 
the absolute offset of a routine from the beginning of the program 
section, you add the location counter to the routine base (described 
later). The location counter for data is expressed as an absolute offset 
from the beginning of the program section. 

34. The hexadecimal representation of the code, in right-to-left order. 

35. Operands marked with the letter G, which will be modified by the 
linker. Such operands refer to symbols that are stored in a program 
section other than the current one or found in external routines. 

36. Operands marked with the letter V, which correspond to branch 
instructions that refer to labels at subsequent program locations. 


© 

© 


MOVL 

R12,I 

© 

PUSHAB 

STATE 

; 0013 

PUSHL 

#0 


CALLS 

#2.SYSIREADEF 


BLBS 

R0.4$ ® 


PUSHAB 

C.AAA 

; 0015 

PUSHL 

#13 
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The right side of the listing contains: 

37. Compiler-generated labels, designated by an integer followed by a 
dollar sign ($). They are used as the targets of compiler-generated 
instructions. 

38. The symbolic op code. 

39. A set of symbolic operands (if needed). 

40. A comment section that can follow the symbolic operand(s); it contains 
a source line number if the corresponding instruction is the first one 
generated for that source line. 

Summary Line 

A summary line at the end of each executable block contains the following 
information: 

Routine Size: 120 bytes. Routine Base: $C0DE + 00034 

41. The routine size in bytes. 

42. The routine base, expressed as an offset from the start of the program 
section in which storage is allocated for the block. 


3.1.12 Compilation Statistics 

On the last page of the listing, the compiler prints the following categories 
of summary information: 

• Statistics of all program sections created during compilation. 

• Statistics of all environment files inherited by the compilation. 

• The exact command line passed by DCL to the VAX PASCAL compiler. 

• A list of the command qualifier options in effect during compilation. 

• Statistics regarding the internal timing of the compiler. 

• Error and page fault counts and timing totals. 

The /LIST qualifier causes this information to be printed on the last page 
of a source code listing (regardless of whether cross-reference and machine 
code listings are also generated). 
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This page begins with a title line and the subtitle, PASCAL Compilation 
Statistics. The format of this line is identical to the format of the title lines 
in the source code and cross-reference listings. 


PSECT SUMMARY 

Name Bytes Attributes 

$CODE 172 NOVEC.NOWRT, RD. EXE. SHR, LCL. REL, CON. PIC.ALIGN(2) 

ENVIRONMENT STATISTICS 

- Symbols - 

File Total Loaded Percent 

SYStSYSROOT;[SYSLIB]STARLET.PEN;16 12606 4 0 

COMMAND QUALIFIERS 

® PASCAL/LIST/MACHINE/CROSS/STANDARD TESTPROG 

/CHECK*(BOUNDS.NOCASE.SELECTORS.NOOVERFLOW.NOPOINTERS.NOSUBRANGE) 

/DEBUG*(NOSYMBOLS.TRACEBACK) 

/SHOW*(DICTIONARY.INCLUDE.NOINLINE.HEADER.SOURCE.STATISTICS) 

/OPTIMIZE 

/NOENVIRONMENT 

® /LIST*DISK|USER:[SMITH]SAMPLE.PAS;1 

/OBJECT*DISK$USER:[SMITH]SAMPLE.PAS;1 

/CROSS.REFERENCE /ERR0R_LIMIT*3O /NOG.FLOATING /MACHINE.CODE /NOOLD.VERSION 

43. The names of all program sections created by the compilation. 

44. The total allocation in bytes for each program section. 

45. The attributes of each program section 

46. The names of each environment file inherited by the compilation 

47. The total number of symbols in the environment file, followed by 
the number actually used by the compilation, followed by an integer 
percentage of used symbols versus defined symbols. (NOTE: The VAX 
PASCAL compiler's definition of "symbols" is in terms of internal 
representation, and may not reflect the complexity of the environment 
source; that is, the number of symbols shown loaded may not reflect 
the number of symbols in your program.) 

48. The compile command and its qualifiers. Note that if you abbreviate 
the qualifiers, they are printed in the abbreviated form. 

49. The state of the compile-time qualifiers and any options. 


I 
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Compiler Internal Timing Statistics 


COMPILER INTERNAL TIMING ® 


Phase 

Faults 

Cpu-Time 

Elapsed-Time 

Initialization 

84 

00:00.2 

00:00.8 

Source Analysis 

640 

00:04.2 

00:10.9 

Source Listing 

222 

00:00.6 

00:02.8 

Tree Construction 

50 

00:00.1 

00:00.2 

Flow Analysis 

10 

00:00.0 

00:00.0 

Value Propagation 

10 

00:00.0 

00:00.0 

Profit Analysis 

20 

00:00.1 

00:00.2 

Context Analysis 

112 

00:00.2 

00:00.3 

N£Lme Packing 

9 

00:00.0 

00:00.0 

Code Selection 

13 

00:00.1 

00:00.1 

Final 

122 

00:00.3 

00:00.4 

TOTAL 

1299 

00:05.8 

00:15.9 


50. The internal timing statistics record the number of page faults that 
occurred, and the amount of elapsed time and CPU time required for 
each phase of compilation. 

Compilation Statistics Summary 


COMPILATION STATISTICS ® 


Informationals: 3 

Warnings: 0 

Errors: 0 

ratals: 0 

CPU Time: 00:05.8 

Elapsed Time: 00:15.9 

Page Faults: 1299 


Compilation Complete 


(197 Lines/Minute) 


51. The summary information includes the total number of messages 
generated at each level—information, warning, error, and fatal; the 
amount of time and speed of compilation, and the number of page 
faults that occurred. If the source code compiled without error, the 
error levels are not listed. The last line is a message indicating that the 
compilation of the source code is complete. 
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3.1.13 Inline Summary Listing 


The inline summary listing enables a user to determine which routine calls 
of user-defined routines were or were not expanded inline. The entries in 
the listing are the names of every routine call of user-defined routines. 

You generate the inline summary listing by specifying the /SHOW=INLINE 
(see Section 3.1.4.13) or the /LIST (see Section 3.1.4.8) qualifiers. The list¬ 
ing follows the source code listing or the cross-reference listing, if one is 
being generated. It begins with a title line and the subtitle Inline Summary 
Listing; the format of this line is identical to the format of the title line in 
the source code listing. 
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Figure 3-2: VAX PASCAL Inline Summary Listing 


TEST 

01 

-LINE- 

IDC-PL- 

SL- 

Source Listing 

00001 

0 

0 

program test(input,output); 

00002 

0 

0 

const 

00003 

0 

0 

max = 5; 

00004 

0 

0 

type 

00005 

0 

0 

arr_type = array [1. . maix] of 

00006 

0 

0 

var 

00007 

0 

0 

arr : arr_type; 

00008 

0 

0 

ind : integer; 

00009 

0 

0 


00010 

0 

0 

[external] procedure fill_array( a 

00011 

0 

0 


00012 

1 

0 

procedure print_array( a : arr_type 

00013 

1 

0 

var 

00014 

1 

0 

i : integer; 

00015 

1 

0 


00016 

1 

1 

begin 

00017 

1 

1 

for i := 1 to max do 

00018 

1 

1 

writeln(a[i] ); 

00019 

0 

0 

end; 

00020 

0 

0 


00021 

0 

0 


00022 

1 

0 

procedure calc_array( a : arr_type 

00023 

1 

0 

var 

00024 

1 

0 

temp : integer; 

00025 

1 

0 

i : integer; 

00026 

1 

0 


00027 

1 

1 

begin 

00028 

1 

1 

for i := 2 to max do 

00029 

1 

2 

begin 

00030 

1 

2 

temp := a[i]; 

00031 

1 

2 

a[i] := a[i-1] ; 

00032 

1 

2 

a[i-l] := temp; 

00033 

1 

1 

end; 

00034 

1 

1 

print_array( a ); 

00035 

0 

0 

end; 

00036 

0 

0 


00037 

0 

0 


00038 

0 

1 

begin 

00039 

0 

1 

fill_array( arr ); 

00040 

0 

1 

print_array( arr ); 

00041 

0 

1 

calc_array( arr ); 

00042 

0 

0 

end. 


l-Feb-1985 12:44:04 
l-Feb-1985 12:09:08 


VAX Pascal V3.0-1 
DISKIUSER:[SMITH]INLSUM.PAS;9 


Page 

( 1 ) 
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Figure 3—2 (Cent.): VAX PASCAL Inline Summary Listing 


TEST 

01 Inline Summary Listing 

{IN PROGRAM TEST > O 

FILL.ARRAY <> TEST at line 39 © 

FILL.ARRAY is an external or inherited routine 
PRINT.ARRAY -> TEST at line 40 O 
CALC.ARRAY -> TEST at line 41 

PRINT.ARRAY -> CALC.ARRAY at line 34 

{IN PROCEDURE PRINT.ARRAY > 

{IN PROCEDURE CALC.ARRAY } 

PRINT.ARRAY -> CALC.ARRAY at line 34 


1-Feb-1986 12:44:04 
l-Feb-1986 12:09:08 


VAX Pascal V3.0-1 

DISKIUSER:[SMITH]INLSUM.PAS;9 


Page 2 

( 1 ) 


4........................................4. 

I KEY TO REFERENCE FLAGS: © I 


I -> expanded into | 

I <> not expanded into I 

4.-+ 
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Figure 3-2 (Cent.): VAX PASCAL Inline Summary Listing 


TEST 

01 


Pascal Compilation Statistics 

l-Feb-1985 12:44:04 

1-Feb-1985 12:09:08 

VAX Pascal V3.0-1 

DISK$USER:[SMITH]INLSUM.PAS;9 (1) 

PSECT 

SUMMARY 





Naime 

Bytes 

Attributes 


ICODE 


399 NOVEC.NOWRT. RD. 

EXE, SHR, LCL, REL, 

CON. PIC.ALIGN(2) 


COMMAND QUALIFIERS 

PASCAL/SHOW*ALL/LIS/OPT INLSUM 

/CHECK-(BOUNDS.NOCASE.SELECTORS.NOOVERFLOW,NOPOINTERS.NOSUBRANGE) 

/DEBUG-(NOSYMBOLS,TRACEBACK) 

/SHOW-(DICTIONARY.INCLUDE.INLINE.HEADER.SOURCE,STATISTICS) 

/OPTIMIZE 

/NOENVIRONMENT 

/LIST»DISK$USER;[SMITH]INLSUM.LIS;12 
/OBJECT-DISKIUSER;[SMITH]INLSUM.OBJ;11 
/NOCROSS.R... 

/CROSS.REFERENCE /ERR0R_LIMIT=30 /NOG_FLOATING /NOMACHINE.CODE /NOOLD.VERSION /NOSTANDARD /WARNINGS 
COMPILER INTERNAL TIMING 


Phase 

Faults 

CPU Time 

Elapsed Time 

Initialization 

133 

00:00.5 

00:01.2 

Source Analysis 

162 

00:00.4 

00:01.5 

Source Listing 

44 

00:00.3 

00:00.6 

Tree Construction 

86 

00:00.2 

00:00.4 

Flow Analysis 

40 

00:00.2 

00:00.2 

Value Propagation 

10 

00:00.0 

00:00.0 

Profit Analysis 

40 

00:00.3 

00:00.8 

Context Analysis 

52 

00:00.7 

00:00.8 

Name Packing 

9 

00:00.1 

00:00.1 

Code Selection 

43 

00:00.2 

00:00.2 

Final 

82 

00:00.2 

00:00.3 

TOTAL 

722 

00:03.1 

00:06.1 


COMPILATION STATISTICS 

CPU Time: 00:03.1 (816 Lines/Minute) 

Elapsed Time: 00:06.1 

Page Faults: 722 

Compilation Complete 


The inline summary listing contains the following information: 

1. The name of the routine, program, or module which contains calls to 
user-defined routines. 

2. The call to a user-defined routine which was not expanded, followed 
by the listing line number of the call. 

3. The reason(s) the user-defined routine was not expanded. Note that 
in order for the list of reasons to be generated, the compilation unit 
must have been compiled with the inline summary listing enabled as 
well as inline expansion optimization specifically enabled by either 
/OPTIMlZE=INLlNE or /OPTIMIZE=ALL. 

Compiling, Linking, and Executing a PASCAL Program 3-37 





4. The call to the user-defined routine which was expanded, followed by 
the listing line number of the call. 

5. A key to the abbreviations that indicate whether or not inline code 
expansion of a routine occured. 


3.2 Functions of the Linker 


The primary functions of the linker are to allocate virtual memory within 
the executable image, to resolve references to routines and symbols not 
defined in the object module being linked, to assign values to relocatable 
global symbols, and to perform relocation. 

You can request that the linker include more than one object module as 
input, or you can specify your own libraries of object modules for it to 
search. The linker automatically combines with the object module any 
library routines that the compiler has requested for input and output, error 
handling, and arithmetic function calculation. For a complete discussion 
of linking, refer to the VAX/VMS Linker Reference Manual. 


3.2.1 The Link Command 


To link an object module, you issue the LINK command. The format is: 

$LINK [I{/command-qualilier>.. .I {file-spec 



/command-qualifier 

The name of a qualifier (see Section 3.1.2) that indicates special processing 
to be performed by the linker on all the file(s) listed. 

file-spec 

The name of an input object file to be linked. You can separate multiple 
file specifications with either commas or plus signs; they have the same 
effect. 

/file-qualifier 

The name of a qualifier (see Section 3.1.2) that indicates special processing 
to be performed by the linker on the file to which the qualifier is attached. 
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In interactive mode, you can issue the LINK command without an accom¬ 
panying input file specification. The system responds with a prompt for 
the file specification: 

$ LINK I RET I 
.File: 

You must type the file specification on the same line as the prompt. If 
the file specification does not fit on one line, type a hyphen (-) as the last 
character of the line and continue typing on the next line. 

Whether you separate multiple file specifications with plus signs or with 
commas, the linker creates only one executable image from all input files 
listed. If you do not specify an output file, the executable image has the 
same file name as the first object module in the list and a file type of EXE. 


3.2.2 Link Command Qualifiers 

The LINK command qualifiers can be used to modify the linker's output, 
as well as to invoke the debugging and/or the traceback facility. Linker 
output consists of an image file and an optional map file. Image-file 
qualifiers are described in Section 3.2.3, map-file qualifiers in Section 3.2.4, 
and debugging qualifiers in Section 3.2.5. 

Table 3-6 summarizes the qualifiers available with the LINK command. 
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Table 3-6: LINK Command Qualifiers 


Qualifier 

Action 

Default 

Image-File Qualifiers 

/EXECUTABLE 

[=file-spec| 

/NOEXECUTABLE 

Produces an executable im¬ 
age; /NOEXECUTABLE 
suppresses production of an 
image file 

/EXECUTABLE 

=object-file.EXE 

/SHAREABLE 

|[=file-spec] 

/NOSHAREABLE 

Creates a shareable image; 
/NOSHAREABLE generates 
an executable image 

/NOSHAREABLE 

Map-File Qualifiers 

/BRIEF 
(No negation) 

Produces a summary of the 
image’s characteristics and a 
list of contributing modules 

Not applicable 

/CROSS_ 

REFERENCE 

/NOCROSS_ 

REFERENCE 

Produces cross-reference in¬ 
formation for global sym¬ 
bols; 

/NOCROSS_REFERENCE 
suppresses cross-reference in¬ 
formation 

/NOCROSS— 

REFERENCE 

/FULL 
(No negation) 

Produces a summary of the 
image’s characteristics, a list 
of contributing modules, list¬ 
ings of global symbols by 
name and by value, and a 
summary of characteristics 
of image sections in the 
linked image 

Not applicable 

/MAP|=file-specl 

/NOMAP 

Generates a map file; /NO¬ 
MAP suppresses the map 

/NOMAP 

(interactive) 


/MAP=object-file.MAP 

(batch) 


3-40 


Compiling, Linking, and Executing a PASCAL Program 










Table 3-6 (Cont.): LINK Command Qualifiers 


Qualifier 

Action 

Default 

Debugging Qualifiers 

/DEBUG 

/NODEBUG 

Includes the VAX Symbolic 
Debugger in the executable 
image and generates a sym¬ 
bol table; /NODEBUG pre¬ 
vents debugger control of the 
program 

/NODEBUG 

/TRACEBACK 

/NOTRACEBACK 

Generates symbolic trace- 
back information when error 
messages are produced; 
/NOTRACEBACK 
suppresses traceback infor¬ 
mation 

/TRACEBACK 
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3.2.3 Image-File Qualifiers 

This section describes how the LINK command qualifiers affect the pro¬ 
duction of an image file. 


3.2.3.1 /EXECUTABLE 

The /EXECUTABLE qualifier produces an executable image. 

A file specification can follow /EXECUTABLE to designate a name for the 
image file. For example: 

$ LINK/EXECUTABLE=TEST CIRCLE 

This command causes the file CIRCLE.OBJ to be linked, and the executable 
image generated by the linker to be named TEST.EXE. 

The /NOEXECUTABLE qualifier, which suppresses production of the 
image file, is useful when you want to verify the results of linking an 
object file before the image is produced. For example: 

$ LINK/NOEXECUTABLE CIRCLE 

This command causes the file CIRCLE.OBJ to be linked, but no image file 
is generated. 

By default, /EXECUTABLE is enabled. 


3.2.3.2 /SHAREABLE 

The /SHAREABLE qualifier creates a shareable image. A shareable image 
is an image that has all of its internal references resolved, but that must be 
linked with one or more object modules to produce an executable image. 
For example, a shareable image can contain a library of routines or can be 
used by the system manager to create a global section for all users. 

To include a shareable image as input to the linker, you can in¬ 
sert the shareable image into a shareable-image library and specify 
the library as input to the LINK command. By default, the linker 
automatically searches the system-supplied shareable-image library 
SYS$LIBRARY:IMAGELIB.OLB after searching any libraries you spec¬ 
ify on the LINK command line. You can also include a shareable image by 
using a linker options file. Refer to the VAX/VMS Linker Reference Manual 
for details. 
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By default, /NOSHAREABLE is enabled. If you specify (or default to) 
/NOSHAREABLE, the image produced cannot be linked with other 
images. 


3.2.4 Map-File Qualifiers 

The map-file qualifiers control the generation of a map file and its con¬ 
tents. The /MAP qualifier produces a map file, which you can name by 
including a file specification. For example: 

$ LINK/MAP*TEST CIRCLE 

This command causes the file CIRCLE.OBJ to be linked, and the map file 
generated by the linker to be named TEST.MAP. 

The map file is stored on the default device in the default directory. If you 
do not include a file specification with /MAP, the map file is given the 
name of the first input file and a file type of MAP. 

With the /MAP qualifier, you can use the qualifiers /BRIEF, /FULL, and 
/CROSS-REFERENCE. These qualifiers define the type of information 
included in the map file as follows: 

• /BRIEF produces a summary of the image's characteristics and a list of 
the contributing modules. 

• /FULL produces the effects of /BRIEF, plus listings of global symbols 
by name and by value, and a summary of the characteristics of image 
sections in the linked image. 

• /CROSS-REFERENCE requests cross-reference information, which 
indicates the object modules that define and/or refer to global symbols 
encountered during linking. 

In interactive mode, the default is /NOMAP; in batch mode, the default is 
/MAP. /NOCROSS—REFERENCE is enabled in either mode. 

/CROSS-REFERENCE and /FULL can be used to modify the same 
/MAP qualifier. If you specify neither /BRIEF nor /FULL, the map file 
by default contains a summary of the image's characteristics and a list 
of contributing modules (as produced by /BRIEF), plus a list of global 
symbols and values in symbol name order. For a complete description of 
the map file's contents, refer to the VAX/VMS Linker Reference Manual. 
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3.2.5 Debugging and Traceback Qualifiers 



The /DEBUG qualifier indicates that the VAX Symbolic Debugger is 
to be included in the executable image and that a symbol table is to 
be generated. If you specify LINK/DEBUG, the program will link and 
execute under the control of the debugger, unless you specify RUN 
/NODEBUG. At link time, the default is /NODEBUG. 

The /TRACEBACK qualifier causes the generation of error messages to be 
accompanied by symbolic traceback information. This information shows 
the sequence of calls that transferred control to the program in which 
the error occurred. /NOTRACEBACK suppresses production of traceback 
information. The default is /TRACEBACK. 

The traceback capability is automatically included with the /DEBUG 
qualifier; therefore, if you specify both /DEBUG and /NOTRACEBACK, 
/NOTRACEBACK has no effect. 

Chapter 4, Debugging a PASCAL Program, contains more information on 
the VAX Symbolic Debugger. 


3.2.6 File Qualifiers 



The file qualifiers /INCLUDE, /LIBRARY, and /OPTIONS are some of 
the qualifiers you can apply to input file specifications with the LINK 
command. Input files can be object files, shareable files previously linked, 
or library files. 


3.2.7 /INCLUDE 


The /INCLUDE qualifier specifies that the input file is an object-module 
or a shareable-image library, and that the modules named are the only 
ones in the library to be explicitly included as input. In the case of 
shareable-image libraries, the module is the shareable-image name. You 
must specify at least one module name with the /INCLUDE qualifier. The 
default file type is OLB. 

To specify more than one module, use the following format: 
/INCLUDE={module-naine, . . .} 
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The following example shows the use of the /INCLUDE qualifier with 
a library named COURSES that contains many modules, among them 
HISTORY, ALGEBRA, and PHILOSOPHY. 

$ LINK SCHEDULE,COURSES/INCLUDE*(HISTORY.ALGEBRA,PHILOSOPHY) 

This command tells the linker to extract the modules HISTORY, 
ALGEBRA, and PHILOSOPHY from the library COURSES and include 
them in the executable image named SCHEDULE. 


3.2.8 /LIBRARY 

The /LIBRARY qualifier specifies that the input file is an object-module or 
shareable-image library, which the linker must search to resolve undefined 
symbols to which other input modules refer. The default file type for the 
input file is OLB. 

You can use the /LIBRARY qualifier with the /INCLUDE qualifier to 
modify the same input file specification. In that case, the same library is 
searched for unresolved references. 

The following example shows the addition of the /LIBRARY qualifier to 
the example given in Section 3.2.8: 

$ LINK SCHEDULE.COURSES/LIBRARY- 
_$/INCLUDE*(HISTORY.ALGEBRA.PHILOSOPHY) 

This example also tells the linker to include the modules HISTORY, 
ALGEBRA, and PHILOSOPHY in the image file SCHEDULE. However, 
the /LIBRARY qualifier tells the linker to search the rest of the li¬ 
brary COURSES and link in any other modules needed to resolve 
strong symbolic references in SCHEDULE, HISTORY, ALGEBRA, and 
PHILOSOPHY. 


3.2.9 /OPTIONS 

The /OPTIONS qualifier specifies that the input file is a linker options file, 
which can contain input file specifications as well as special instructions 
recognized only by the linker. See the VAX/VMS Linker Reference Manual 
for a more detailed explanation on the linker options file. 
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3.2.10 Identification Checking 


The VAX PASCAL compiler provides identification information about 
object modules so that the VAX Linker can check for consistency among 
object modules that are linked together and that inherit the same environ¬ 
ment file(s). The compiler records the date and time that an environment 
file was created and passes this information to the linker in the form of an 
Entity Ident Consistency Check subrecord. 

The linker checks the Entity Ident Consistency Check subrecord of every 
object module before it links them together. Two object modules that 
inherit the same environment file must inherit versions of the file with the 
same identification information. If the creation dates and times are not 
identical, the linker issues a warning message. 

For more information about the Entity Ident Consistency Check sub¬ 
records, see the VAX/VMS Linker Reference Manual. 


3.3 Executing a Program 


After you have compiled and linked your program, the system can execute 
it. The RUN command initiates execution. It has the format: 



file-spec 

The name of the executable image to be run. 

You must specify the file name; default values are applied if you omit the 
optional elements of the file specification. The default file type is EXE. 

The /DEBUG qualifier allows you to use the VAX Symbolic Debugger, 
even if you omitted this qualifier from the PASCAL and LINK commands 
(see Sections 3.1.4.3 and 3.2.5). If you specify /NODEBUG, the program 
executes without debugger intervention. This qualifier allows you to 
override a /DEBUG qualifier specified at link time. See Chapter 5 for 
more information on debugging. 

To perform symbolic debugging, you must specify the /DEBUG qualifier 
with both the PASCAL command and the LINK command; you need not 
then specify /DEBUG with the RUN command. If you omit /DEBUG 
from either the PASCAL command or the LINK command, you can 
still use the qualifier with the RUN command to invoke the debugger. 
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However, the executable image will not contain debugger records or 
symbol tables used in debugging. In that case, you must express addresses 
as absolute values, rather than as symbols. 

Table 3-7 summarizes the effects of using the /DEBUG and /TRACEBACK 
qualifiers with the PASCAL, LINK, and RUN commands. Note that if you 
do not specify any qualifiers in the compile-link-execute sequence, and an 
execution error occurs, you will receive a traceback list by default. If you 
specify LINK/NOTRACEBACK, however, no traceback list is produced in 
the event of a run-time error. 


Table 3-7: /DEBUG and /TRACEBACK Qualifiers 


Command 

Qualifier 

Effect 

Default 

PASCAL 

/DEBUG 

Symbol and type infor¬ 
mation that the de¬ 
bugger needs is re¬ 
corded in the object 
module by the com¬ 
piler. 

/DEBUG^TRACE- 

BACK 

LINK 

/DEBUG 

Symbol and type infor¬ 
mation recorded by 
the compiler is passed 
to the debugger. A 
traceback list is also 
produced. 

/NODEBUG 

LINK 

/TRACEBACK 

Traceback information 
is passed to the de¬ 
bugger and a trace- 
back list is produced. 

/TRACEBACK 

RUN 

/DEBUG 

The debugger is in¬ 
voked and the DBG> 
prompt is displayed. 
This qualifier is not 
needed if LINK/DE¬ 
BUG was specified. 

None 

RUN 

/NODEBUG 

If /DEBUG was speci¬ 
fied in the LINK com¬ 
mand, RUN/NODE¬ 
BUG suppresses the 
call to the debugger. 

None 
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Figure 3-3 shows an example of a source program listing and a traceback 
list. (Note that some compilation information has been omitted from the 
listing in this example.) The traceback list in this example is interpreted as 
follows: 

A message is displayed by the system, indicating the nature of the error 
(arithmetic fault), the address at which the error occurred (the Program 
Counter, PC), and the contents of the processor status longword (PSL). 
This message is followed by the traceback information. 

The traceback information is presented in reverse order of the routine 
calls. Of particular interest are the values listed under routine name and 
line. The routine name shows which routine generated the error. The 
line number value corresponds to a compiler-generated line number in 
the source program listing (not to be confused with editor-generated line 
numbers) and indicates the line on which a statement begins. You can use 
this information to isolate the error. 

If you specify either LINK/DEBUG or RUN/DEBUG, the debugger as¬ 
sumes control of execution. If an error occurs, control reverts to the debug¬ 
ger; the traceback list is not automatically printed. For more information 
on using the debugger, refer to Chapter 4, Debugging a PASCAL Program. 

Figure 3-3: Source Program Listing and Traceback List 


TRACETEST 28-N0V-1984 12:34:33 VAX Pascal V3.0 Page 1 

01 Source Listing 28-N0V-1984 12:32:36 _DBB3:[SMITH]TRACE.PAS;1 (1) 

0001 PROGRAM Tracetest; 

0002 

0003 PROCEDURE PI 
0004 (VAR X : REAL); 

0005 

0006 BEGIN 
0007 X :* 1.0/X; 

0008 END; 

0009 

0010 PROCEDURE P2 
0011 (Y : REAL); 

0012 

0013 BEGIN 
0014 PI (Y); 

0015 END; 

0016 

0017 BEGIN 
0018 P2 (0.0); 

0019 END. 

XSYSTEM-F-FLIDIV_F. arithmetic fault, floating divide by zero at PC-00000208. PSL-03C00002 
XTRACE-F-TRACEBACK. symbolic stack dump follows 


module name routine name line relative PC absolute PC 
TRACETEST TRACETEST 7 00000008 00000208 
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Chapter 4 

Debugging VAX PASCAL Programs 


This chapter describes how to use the VAX Symbolic Debugger (or, 

simply, the debugger). The chapter is organized as follows: 

• Section 4.1 provides a general description of debugging and the 
debugging aids provided by the VAX Symbolic Debugger. 

• Section 4.2 describes the options you should select when compiling 
and linking a program to be analyzed using the debugger. 

• Section 4.3 explains how to invoke and terminate the debugger. It also 
explains how to return to DCL command level without terminating a 
debugging session. 

• Section 4.4 describes some general features of the debugging environ¬ 
ment. 

• Section 4.5 describes how to start, stop, and control a program while 
you are running it under the control of the debugger. 

• Section 4.6 explains how to examine variables and program locations 
and how to modify their contents while you are debugging a program. 

• Section 4.7 describes how the debugger recognizes program locations 
that you specify, for example, line numbers and routine names. 

• Section 4.8 presents a simple example of debugging a PASCAL pro¬ 
gram. 

The VAX Symbolic Debugger Reference Manual describes the debugger in 

detail. Appendix H, Debug Command Summary, is a summary of all 

debug commands available. 
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4.1 Debugging Overview 


Debugging, the process of locating and correcting errors, is one of the 
most difficult stages in program development. You need to debug when 
any of the following happen: 

• The compiler flags errors 

• Run-time errors are signaled 

• You determine, based on receiving incorrect output during a program's 
execution, that a logic error exists 

The VAX PASCAL compiler and run-time system display error and 
warning messages when errors occur. You can use this information to 
determine where the error exists in your program and then to correct it. 

For programs that compile and link properly but produce erroneous 
output, you must detect logic and programming errors yourself. To help 
you find such errors, VAX/VMS provides a special program: the VAX 
Symbolic Debugger. It lets you control the execution of your program so 
that you can monitor specific locations, change the contents of locations, 
check the sequence of program control, and otherwise locate and correct 
errors as they occur. After you track down the mistakes, you can edit your 
source program and repeat the compile-link-execute sequence with the 
corrected version. 

The VAX Symbolic Debugger has many helpful features, among which are 
the following: 

• It is interactive. You control your program and interact with the 
debugger from your terminal. 

• It understands PASCAL variables and their data types. Thus, when 
you want to look at the value of a variable, the debugger will display 
the value in a manner appropriate to the data type, and when you 
want to change the value of a variable, the debugger will convert your 
ASCII text input to the data type of the variable. 

• It understands other programming languages as well, such as 
FORTRAN and PL/I. Thus, if your program consists of routines 
written in different languages, you can change from one language to 
another during the course of a debugging session. 
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4.2 Compiling and Linking Considerations 

This section discusses the qualifiers that you should use on the PASCAL 
and LINK commands in order to prepare a program for execution by the 
debugger. It also explains why optimization during compilation may cause 
problems with debugging. 


4.2.1 Qualifier Options 

Before executing a PASCAL program with the debugger, you should 
specify the /DEBUG and /NOOPTIMIZE qualifiers when compiling the 
program and the /DEBUG qualifier when linking it, as shown in the 
following example: 

$ PASCAL/DEBUG/NOOPTIMIZE METRIC 
$ LINK/DEBUG METRIC 

The /DEBUG qualifier on the PASCAL command requests that the 
compiler write symbol table records into the object module; these records 
will permit you to examine and modify variables by name during the 
debugging session. (The need for the /NOOPTIMIZE qualifier on the 
PASCAL command is addressed in the next section.) 

The /DEBUG qualifier on the LINK command requests the linker to 
include the debugger routines, global symbols, and traceback information 
in the executable image. By default, the linker includes only traceback 
information. 

To obtain a program listing of the compilation units being debugged, you 
can use the /LIST and /MACHINE-CODE qualifiers in addition to the 
/DEBUG qualifier. /LIST requests the listing, and /MACHINE_CODE 
requests that the listing include the object code instructions. For example: 

$ PASCAL/DEBUG/LIST/MACHINE_CODE/NOOPTIMIZE METRIC 
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4.2.2 Effects of Optimization on Debugging 


When you compile a PASCAL program, the resulting object code is 
optimized; that is, the compiler uses some techniques that will make the 
program run faster and require less storage. For example, the compiler 
puts automatically allocated variables in registers, removes invariant 
expressions that occur within loops so that they are evaluated outside the 
loop, and so on. 

When the VAX PASCAL compiler determines that the value of an ex¬ 
pression does not change between two given occurrences, it may save the 
value in a register. It does not recompute the value for the next occur¬ 
rence, but simply assumes that the value saved in the register is valid. If, 
while debugging a program, you use the DEPOSIT command to change 
the value of an expression, the value of the expression is changed, but the 
corresponding value stored in the register is not. Thus, when execution 
continues, the value in the register may be used instead of the changed 
value in the expression, causing unexpected results. Chapter 10 explains 
in greater detail the optimizations used in VAX PASCAL. 


Sometimes the VAX PASCAL compiler temporarily overlays unused 
symbols with currently active ones in the debugger symbol table. Thus, 
when you issue an EXAMINE or EVALUATE command, the debugger 
may not use the value you expect if the command refers to a variable that 
is currently inactive. 


Also, the optimization technique of in-line expansion of user-defined 
routines may cause unexpected results, especially with the SET BREAK 
command. For example, if you set a breakpoint at a routine that is 
expanded in-line, the break will not be executed and the debugger will 
continue executing until another stop point is reached. 

To prevent conflicts between optimization and debugging, you should 
compile your program with the /NOOPTIMIZE qualifier until it is thor¬ 
oughly debugged. Then you can recompile the program (which by default 
will be optimized) to produce efficient code. 
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4.3 Invoking and Terminating the Debugger 


When you execute an image that has been compiled and linked with the 
debugger, initial control goes to the debugger. 

The following example shows how the debugger identifies itself: 

$ RUN METRIC 


VAX DEBUG Version 4.X 


•/.DEBUG-I-INITIAL, language is PASCAL, module set to 'METRIC 
DBG> 

The module name displayed in the debugger's message is the name of 
the main program, which is associated with the executable image's entry 
point. In the example, the debugger message indicates that the name of 
the main program is Metric. 

The DBG> prompt indicates that the debugger is now ready to process 
your commands. You respond to the prompt with one of the commands 
recognized by the debugger. (See Appendix H, Debug Command 
Summary for a complete list of debugger commands.) 

To terminate the debugging session, you use the EXIT command: 



DBG> EXIT 


When your program has been thoroughly debugged, you can recompile 
and relink it without the /DEBUG qualifier. Or, you can run it with the 
/NODEBUG qualifier. For example: 

$ RUN/NODEBUG METRIC 

Note, however, that if you use /NODEBUG, the data required by the 
debugger still occupies space within the executable image file. 


4.3.1 Invoking the Debugger During Program Execution 


You can interrupt an executing program at any time by entering |ctrl/y| . 
You can then invoke the debugger by entering the DEBUG command— 
even if you specified /NODEBUG on the RUN command. This method of 
interrupting an executing program can be useful, for example, if you think 
that the program is looping or if you see erroneous output. 
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4.3.2 Suspending the Debugger te Issue DCL Commands 


At any point in a debugging session, you can use the debugger's SPAWN 
command to create a subprocess that allows you to use DCL commands 
without terminating the debugging session. 

If you specify the SPAWN command with a DCL command as a param¬ 
eter, the spawned subprocess executes the command and immediately 
returns control to the debugger. The following example executes MAIL in 
the middle of a debugging session: 

DBG> SPAWN MAIL 
MAIL;^ READ 


MAIL> EXIT 

’/.DEBUG-1-RETURNED, control returned to process USER 
DBG> 

If you Specify the SPAWN command without a DCL command as a 
parameter, you can enter any number of DCL commands before returning 
to your debugging session. To resume your debugging session, specify the 
LOGOUT command as shown in the following example: 

DBG> SPAWN 
$ MAIL 


MAIL> EXIT 
$ LOGOUT 

Process USER_1 logged out at 28-JUL-1984 09:69:12:45 

’/.DEBUG-1-RETURNED, control returned to process USER 
DBG> 

The debugger also has an ATTACH command. The debugger's ATTACH 
command works the same way as the ATTACH command in DCL (see the 
VAX/VMS DCL Dictionary). 
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4.3.3 Interrupting the Debugger 

Entering Ictrl/y| terminates any debugger command that is executing and 
puts you at DCL command level. You can then return to the debugger 
with the DCL commands CONTINUE or DEBUG: 

• The CONTINUE command continues the debugging session as though 
no interruption had occurred. 

• The DEBUG command returns control to debugger command level, 
allowing you to issue new debugger commands. 

This combination of |ctrl/y| and the DEBUG or CONTINUE commands is 
useful for aborting an infinite loop or a long operation associated with a 
debugger command. 


4.4 The Debugger Environment 

The debugger provides many of the features that are available from DCL. 
This includes keypad definitions, HELP capability, command files, and 
so forth. In some cases, however, debugger syntax is different from DCL 
syntax. This section explains the debugger sub-environment. 

The following topics are addressed in this section: 

• Debugger HELP information 

• Options relating to how you enter commands and command proce¬ 
dures 

• Debugger commands (presented in an alphabetical list that shows all 
of the optional qualifiers and parameters) 


4.4.1 Using Debugger HELP 

To display the list of debugger commands on which information is avail¬ 
able, type HELP. To display information about a particular command, 
type HELP plus the command name. For example, to display information 
about the use of the qualifier /ALL with the SET MODULE command, 
specify: 

DBG> help set module/all 
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4.4.2 Entering Commands 

You can enter debugging commands in two ways: by typing out the 
commands on your terminal's normal keyboard or by using keypad keys. 


4.4.2.1 Normal Keyboard Entry 

To enter comm ands on the main keyboard, you type in the command 
and then press |ret| . You can enter more than one command on a line 
by separating the commands with semicolons (;). In addition, you can 
continue a command on a new line by ending the line with a hyphen (-), 
and the debugger will then prompt for the remainder of the command line 
with an underscore (__). 

Debugger commands, like DCL commands, can be abbreviated to unique 
characters. For example, the command CANCEL EXCEPTION BREAK 
could be entered as CAN EX BR. In addition, you can abbreviate a de¬ 
bugger command by using the DEFINE command with its /COMMAND 
qualifier to equate the command to a shorter symbolic name. The follow¬ 
ing example creates the symbol CEB to abbreviate the command CANCEL 
EXCEPTION BREAK: 

DBG> DEFINE/COMMAND CEB * "CANCEL EXCEPTION BREAK" 

To make your symbol definitions available at each debugging session, 
include them in a debug initialization command file that is executed at the 
start of all debugging sessions (see Section 4.4.5). 


4.4.2.2 Keypad Entry 

You can also enter debugging commands by means of the keypad. 

Figure 4-1 shows the default keypad definitions. You can redefine each of 
these keys with the DEFINE/KEY command (see Section 4.4.3). The DCL 
and MAIL keypad entry rules work in a similar way. 

Each key can represent up to three debug commands. The first command 
is selected by pressing the key by itself; the second, by pressing the key in 
combination with the PFl (GOLD) key; the third, by pressing the key in 
combination with the PF4 (BLUE) key. 

Each key also has a symbolic name associated with it. You can use this 
symbolic name to define a key or key combination to represent debug 
commands of your own choosing. In Figure 4-1, the symbolic names are 
shown at the top of the key, for example, KP7. 
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To enter a debug command in keypad mode, you first press the desired 
key or key combination. Some commands, such as the GO and SET 
MODE commands, require no additional parameters. When these keys are 
pressed, the command is executed immediately. Other commands require 
a parameter. When those keys are pressed, you type the parameter on the 
main keypad. The command is executed when you press either the |RET| or 
ENTER I key. 


Figure 4-1: Default Keypad Definitions—VT100 



PF1 


PF2 


PF3 


PF4 

Default 

GOLD 


HELP 


SET MODE SCREEN 


BLUE 

GOLD 

GOLD 


HELP 


SET MODE NOSCR 


BLUE 

BLUE 

GOLD 


HELP 


DISP/GENERATE 


BLUE 







KP7 


KPS 


KP9 


MINUS 

Default 



SCROLL/UP 


DISPLAY next 


DISP next AT FS 

GOLD 



SCROLL/TOP 





BLUE 



SCROLL UP * 




DISP SRC, OUT 







KP4 


KPS 


KP6 


COMMA 

Default 

SCROLL/LEFT 


EX/SOU .0\%PC 


SCROLL RIGHT 


GO 

GOLD 

SCROLL/LEFT:132 


SHOW CALLS 





BLUE 

SCROLL LEFT * 


SHOW CALLS 3 


SCROLL RIGHT * 









KP1 


KP2 


KP3 



Default 

EXAMINE 


SCROLL/DOWN 


SEL/SCROLL next 



GOLD 



SCROLL BOTTOM 


SEL OUTPUT next 



BLUE 



SCROLL DOWN * 


SEL/SOURCE next 







ENTER 


KPO 



PERIOD 


Default 

STEP 


Reset 



GOLD 

STEP INTO 


Reset 



BLUE 

STEP OVER 


Reset 




/K 1 7 ?>? 84 
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4.4.3 User-Defined Keypad Command Keys 


The following commands are used in examining and changing key defini¬ 
tions: 

DEFINE/KEY Creates a key definition, which associates a debug 

command of your own choosing with a key or 
key combination. 

DELETE/KEY Deletes a key definition. 

SHOW KEY Displays the definition for a specified key. 

The debugger DEFINE/KEY command (similar to the DCL DEFINE/KEY 
command) allows you to assign a debugger command to a keypad key. 
For example, to define the keypad key 7 to enter and execute the SET 
MODULE/ALL command, specify: 

DBG> DEFINE/KEY/TERMINATE KP7 “SET MODULE/ALL" 

You must be in keypad mode to define, use, display, or delete a keypad 
key. To display the current definition of a keypad key, specify: 

DBG> SHOW KEY key 

To delete a key's definition, specify: 

DBG> DELETE/KEY key 

You can put key definitions in a debugger initialization file so that the key 
is available whenever the initialization file is executed (see Section 4.4.5). 


Key Name 

Key Designation 

PFl 

LK201, VTIOO, VT52 Red 

PF2 

LK201, VTIOO, VT52 Blue 

PF3 

LK201, VTIOO, VT52 Black 

PF4 

LK201, VTIOO 

KPO, KPl, ..., KP9 

Keypad 0-9 

PERIOD 

Keypad period 

COMMA 

Keypad comma 

MINUS 

Keypad minus 

ENTER 

Keypad Enter 

El 

LK201 Find 
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Key Name Key Designation 


E2 

LK201 

Insert Here 

E3 

LK201 

Remove 

E4 

LK201 

Select 

E5 

LK201 

Prev Screen 

E6 

LK201 

Next Screen 

HELP 

LK201 

Help 

DO 

LK201 

Do 

F6, F7, ..., F20 

LK201 

Function keys 


4.4.4 Using Debugger Command Procedures 

Like DCL, the debugger has a capability for executing a sequence of 
commands contained in a file. The syntax is the same as for DCL: 

DBG> (Sfllename 

You can execute a command procedure interactively, from within a 
DO command sequence, or from within another command procedure. 
Command procedures are especially useful when you regularly perform 
a number of standard setup debugger commands; see Section 4.4.5 for 
information about initialization files. 

To display the commands in a command procedure (or DO command 
sequence) as they execute, specify the VERIFY keyword of the SET 
OUTPUT command: 

DBG> SET OUTPUT VERIFY 

If you want the debugger to accept input commands automatically from 
a file whenever you invoke the debugger, assign the logical name 
DBG$INPUT to point to the file before invoking the debugger. For 
example: 

$ TYPE EXIT.COM 
EXIT 

$ ASSIGN EXIT.COM DBG$INPUT 
$ RUN/DEBUG PROG 
DBG> EXIT 

$ 

In the preceding example, the debugger accepts its input from the file 
EXIT.COM, thus causing it to exit immediately. 
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4.4.5 Initializing a Debugging Session 


The logical name DBG$INIT can be used to specify a command file that is 
to be executed whenever you start a debugging session. This capability is 
analogous to the LOGIN.COM file that is always executed at the start of a 
terminal session. 

The following commands are examples of commands that are commonly 
used in initialization files: 

SET OUTPUT LOG,VERIFY 
SET LOG filename 
SET MODULE/ALL 
SET MODE SCREEN 
SET STEP SILENT 

Note that in addition to establishing a "generic" initialization command 
procedure that will be invoked whenever you access the debugger, you 
may also want to establish special initialization command procedures for 
use with individual programs that require repeated debugging because of 
their complexity or size. 


4.4.6 Recording Debug Sessions in Log Files 

A debugger log file maintains a history of a debugging session. Each 
debugger command and display that occurs during a debugging session is 
stored in the log file. 

In order to allow the use of log files as command procedures, the DBG> 
prompt is not recorded and the displays are commented out with exclama¬ 
tion points. Thus, if a lengthy debugging session is interrupted for some 
reason, you can execute the log file as you would any other debugger 
command procedure; the log file will restore your debugging session to 
the point at which it was previously terminated. 

To create a log file, specify the following debugger commands: 

• SET LOG filename—Specifies the name of the log file 

• SET OUTPUT LOG—Directs the debugger to begin to send output to a 
log file (as well as to the terminal) 

For example: 

DBG> SET LOG HIST.LOG 
DBG> SET OUTPUT LOG 
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The default file specification of a log file is DEBUG.LOG. 

To use a log file as a command procedure, invoke it as follows: 

DBG> SET OUTPUT VERIFY 
DBG> (OHIST.LOG 

y.DEBUG-I-VERIFYICF. entering indirect command file "HIST.LOG" 

SET BREAK /CALL/TEMPORARY 


7,DEBUG-I-VERIFYICF, exiting indirect command file "HIST.LOG" 
DBG> 


4.4.7 Displaying Source Lines 

Debugger commands allow you to display source lines under a variety of 
circumstances. The STEP/SOURCE and SET MODE SCREEN commands 
display source lines as they execute; the TYPE and SEARCH commands 
display source lines independently. All commands that display source 
lines require the following: 

1. The source file must have been compiled with the /DEBUG qualifier. 

It is also recommended that you use the /NOOPTIMIZE qualifier. (See 
Section 4.2.1.) 

2. The source file must reside in the same directory in which it was com¬ 
piled. If not, you must use the SET SOURCE command to establish 
the file's new directory. For example: 

DBG> SET SOURCE directoryl[,directory2]... 

Note that by specifying a directory list, you can tell the debugger 
which directories it should search (in the order specified) to find the 
files. 

3. When necessary, you must specify the appropriate scope or, alterna¬ 
tively, the appropriate pathname (see Section 4.7.3). 

The STEP/SOURCE command displays the currently executing source 
lines; see Section 4.5.2 for information about the STEP command. 

The SET MODE SCREEN command generates the SRC display by default; 
SRC shows the currently executing source line, the lines preceding it, and 
the lines following it; see Section 4.4.8 for information on debugger screen 
displays. 
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The TYPE and SEARCH commands display source lines independent of 
their execution: 

• TYPE—displays a specified range of source lines. For example, to 
display lines 1 through 5 of module SUM type: 

DBG> TYPE SUM\1:5 
module SUM 

1: PROGRAM Sum (INPUT. OUTPUT); 

2 : 

3: VAR 

4: I, Highest, Total : INTEGER; 

5: 

In SCREEN mode, the source lines appear in the source display (SRC, 
by default); in NOSCREEN mode, the source lines appear with other 
debugger output. 

• SEARCH—displays the source lines containing the specified string. 
For example, to display all lines containing the string HIGHEST in the 
module named SUM, specify: 

dbg> search/all sum highest 

module SUM 

4: I, Highest. Total : INTEGER; 

9: READ (Highest); 

10: WHILE Highest <> 0 DO 

12: FOR I := 1 TO Highest DO 

19: READ (Highest); 

The SEARCH display appears with other debugger output. 


4.4.8 Using Screen Displays 

Screen mode debugging allows you to keep various types of debugging 
information on the screen by dividing the screen into sections and dis¬ 
playing a different type of information in each section. The sections of the 
screen are called windows and the contents of the windows are called dis¬ 
plays. In screen mode, the debugger defines a number of default windows 
and maintains three default displays: 

• A display of source lines (SRC) 

• A display of debugger output (OUT) 

• A display of register contents (REG) 
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The bottom lines on the screen are reserved for debugger commands. 
(These lines also receive program output, unless the program specifies 
otherwise.) 


4.4.8.1 Invoking and Terminating Screen Mode 

To use screen mode debugging, press the PF3 key or enter the SET MODE 
SCREEN command. Two displays appear on the screen by default: 

• SRC, the default source display, appears in window HI (the top 
half of your screen). The SRC display, by default, points to the 
next executable source line and shows the four lines preceding and 
following it. The entire source program is available through scrolling, 
as long as the conditions for normal source display are met (see 
Section 4.4.8.3 for a list of these conditions). 

• OUT, the default output display, appears in window H2 (the bottom 
half of your screen). The OUT display, by default, shows debugger 
output (such as responses to the SHOW and EXAMINE commands). 
The 100 most recent lines of debugger output are available through 
scrolling. 

The display name and characteristics are placed on the title line of the 
window. 

The following screen appears when you are debugging program SUM and 
you execute a STEP command after a SET MODE SCREEN command: 

--SRC: module SUM-source-scroll- 

3: VAR 

4: I. Highest. Total : INTEGER; 

5: 

6: BEGIN 

-> 7: Total := 0; 

8: WRITE ('Enter an integer; type 0 to quit : '); 

9: READ (Highest); 

10: WHILE Highest <> 0 DO 

11: BEGIN 

--OUT-output- 

stepped to SUM\7,LINE 7 

7: Total := 0; 


dbg>set mode screen 

dbg>step 

DBG> 
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Note: The arrow at the left side of the SRC display indicates the next 
statement to be executed. 

The debugger makes the third display, REG, available but not visible, by 
default; the REG display shows the current contents of machine registers. 

To see existing screen displays (including those not currently displayed on 
the screen), specify the SHOW DISPLAY command. The information is 
displayed in the OUT display area. 

-“SRC: module SUM-source-scroll- 

-> 1: PROGRAM Sum (INPUT. OUTPUT); 

2: 

3: VAR 

4: I. Highest. Total ; INTEGER; 

6 : 

6: BEGIN 

7: Total := 0; 

8: WRITE ('Enter an integer; type 0 to quit : '); 

9: READ (Highest); 

--OUT-output- 

display SRC at HI. size = 60 

kind = SOURCE (EXAMINE/SOURCE . 7.SOURCE_SCOPE\7,PC) 
display INST at HI. size = 60. removed 

kind = INSTRUCTION (EXAMINE/INSTRUCTION .0\7.PC) 
display REG at Q3. size - 4. removed, kind - REGISTER 
display OUT at H2. size = 100, kind = NORMAL 


DBG>SET MODE SCREEN 
DBOSHOW DISPLAY 
DBG> 

When debugger output from a single command exceeds the dimensions 
of the OUT display (the output from the SHOW WINDOW command, for 
example), the beginning of the display is not visible. To view the entire 
display, you can scroll the display, place the display into window FS (full 
screen) or another large screen region, or terminate screen mode (SET 
MODE NOSCREEN) before entering the command. (See Section 4.4.8.3 
for more information on scrolling and creating displays.) 
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4.4.8.2 Defining Windows 

The debugger provides a number of default windows that allow you 
to either treat the entire screen as a single window (FS) or divide the 
screen into halves (H1,H2), into thirds (T1,T2,T3), or into quarters 
(Q1,Q2,Q3,Q4). In addition, the debugger defines a number of win¬ 
dows that combine the fractional screens; for example, window Q12 refers 
to the top two quarters of the screen (same as HI) and window T23 refers 
to the bottom two thirds of the screen. Most of the debugger windows 
hold any type of display; however, three windows (R1,R2,R3), each taking 
up one third of the screen, are reserved for register displays. 

A window is defined by its top line and the number of lines that it can 
hold. For example, the window HI is defined as HI (1,9) and H2 as H2 
(11,9). You can use the SET WINDOW command to define your own 
windows; however, the default windows should be sufficient in most 
cases. 

Use the SHOW WINDOW command to display the name and dimensions 
of all windows currently defined. Use the CANCEL WINDOW command 
to delete one or more windows. 


4.4.8.3 Manipulating Displays 

You can manipulate screen displays in several ways, including showing 
them on the screen, scrolling forward or backward through them, and 
removing them from the screen. 

You can use the following pseudo-display names to reference displays in 
debugger commands: 


y.CURDISP 

•/.NEXTDISP 

y.NEXTOUTPUT 

•/.NEXTSCROLL 

•/.NEXTSOURCE 


The current (most recently viewed) display 

The next display in the list 

The next output display 

The next scrolling display 

The next source display 


Scrolling Screen Displays 

The SCROLL command allows you to show different parts of a display on 
the screen. The SELECT/SCROLL command determines which display 
is affected by the SCROLL command. For example, to establish the SRC 
display as the default scrolling display, specify: 

DBG> SELECT/SCROLL SRC 
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The SRC display remains the default parameter of the SCROLL command 
until you specify another SELECT/SCROLL command. Using key 3 on 
the keypad, you can step through the scrolling displays until you get the 
display that you want. 

To display the previous five lines of source code, you specify: 

DBG> SCROLL/UP:6 

Typically, however, you scroll a display using the keypad keys: 

• Up—key 8 scrolls toward the beginning of the display by entering the 
SCROLL/UP command. To scroll to the top of the display, press PFl 
followed by key 8. 

• Down—key 2 scrolls toward the end of the display by entering the 
SCROLL/DOWN command. To scroll to the bottom of the display, 
press PFl followed by key 2. 

• Left—key 4 scrolls towards the left of the display by entering the 
SCROLL/LEFT command. 

• Right—key 6 scrolls toward the right of the display by entering the 
SCROLL/RIGHT command. 

Keypad key 5 refreshes the current source display (SRC, by default) and 
displays the next source line to be executed (marked with an arrow in the 
source display) in the output display. 

Creating Screen Displays 

In addition to the default displays, you can define other source, out¬ 
put, and register displays. To create a display, use the SET DISPLAY 
command: 

SET DISPLAY display-name [[AT window! [[type! 

You must specify a display name; optionally, you can specify the window 
into which the display is mapped and the type of display to create. The 
following display types are available: 

• DO (command-list)—The display contains the results of the debugger 
commands specified in the command list. The command list is exe¬ 
cuted each time the debugger regains control. If you specify more than 
one command, separate the commands with semicolons. 

• NORMAL—The display contains all debugger output, but only if it is 
selected for output with the SELECT/OUTPUT command. By default, 
the OUT display is selected for output. 
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• REGISTER—The display contains the VAX registers and their contents; 
it is updated each time the debugger regains control. The REG display 
is type REGISTER. 

• SOURCE—The display contains the program source statements, but 
only if it is selected for source display with the SELECT/SOURCE 
command. 

• SOURCE (command-list)—The display contains the results of the 
debugger commands specified in the command list, but only if it is 
selected for source display with the SELECT/SOURCE command. The 
command list, which should consist of a single TYPE or EXAMINE 
/SOURCE command, is executed each time the debugger regains 
control. 

The following example defines a display XYZ to be shown in window 

T2 on the screen. Each time the debugger regains control, it executes the 

DO command list (here, the EXAMINE command) and lists the results in 

display XYZ: 

--SRC: module SUM-source-scroll- 

16: WRITELN ('The sum of integers from 1 to ', Highest:3, 

17: ' is ', Total:4); 

18: WRITE ('Enter an integer; type 0 to quit : '); 

-> 19: READ (Highest); 

20: END; 

--XYZ--- 

SUMXTOTAL 36 


--OUT-output- 

break at SUM\y,LINE 19 

19: READ (Highest); 


DBODISPLAY SRC AT T1 
DBODISPLAY OUT AT T2 

DBOSET DISPLAY XYZ AT T2 DO (EXAMINE TOTAL) 

DBOSET BREAK /.LINE 19 

DBOGO 

Enter an integer; type 0 to quit : 8 

The sum of integers from 1 to 8 is 36 

DBG> 
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Accessing Displays 

To control the display of different screen displays, you can use keypad 
keys or the DISPLAY command. Typically, key 9 and key minus are used 
for this operation: 

• Key 9 performs the DISPLAY %NEXTDISP command; it displays the 
next display on the debugger's current list. Repeated use of this key 
causes the debugger to step through the displays in the display list. 

• Key minus (-) performs the DISPLAY %NEXTDISP AT FS and 
SELECT/SCROLL %CURDISP commands. It displays the next display 
in the display list on the full screen, covering any other displays that 
are currently visible. It also establishes this new display as the current 
scrolling display. Repeated use of this key allows you to step through 
you displays. 

Removing Screen Displays 

You can use the CANCEL DISPLAY command to delete displays that you 
previously set. 


4.4.9 Debugger Command Syntax and Summary 

You enter commands to the debugger in much the same way that you 
enter DCL commands. Each debugging command ends with a RETURN. 

commandll/qualifierl] {parameter}, . . . ! comment 

command 

The name of a specific function to be performed (for example, CANCEL 
MODULE, SET SCOPE, SHOW LANGUAGE). 

qualifier 

The name of an option that modifies the effect of the command. 

parameter 

The name of an option that qualifies the function in some way, such as by 
specifying a range of locations to be monitored. 

comment 

Any text message. The debugger ignores all text after an exclamation 
mark. 
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You can enter more than one command on a command line by separating 
the commands with semicolons (;). You can continue a command on a 
new line by ending the line with a hyphen (-); the debugger will then 
prompt for the rest of the command with an underscore (_). 

You can obtain information about a debugging command while you are 
debugging by entering the HELP command. 

See Appendix H, Debug Command Summary, for a summary of the 
debugger commands. 


4.5 Controlling Program Execution 


To debug your program, you must be able to suspend and resume program 
execution at specific points so that you can see what is happening. This 
section describes the following debugging concepts: 

• Starting and stopping program execution 

• Stepping through a program 

• Breakpoints 

• Tracepoints 

• Watchpoints 



4.5.1 Starting and Stopping Program Execution 


The GO command starts program execution. You must use this command 
to begin execution and to continue after execution has been suspended. 
For example: 

$ RUN MAINP 


VAX DEBUG Version 4.X 


7.DEBUG-1 “INITIAL, language is PASCAL, module set to 'MAINP' 
DBG>G0 


7,DEBUG-I-EXITSTATUS. is '‘/.SYSTEM-S-NORMAL. normal successful completion' 

DBG> 

The EXITSTATUS message indicates that the program has run to comple¬ 
tion. 



Debugging VAX PASCAL Programs 4-21 





Although the debugger allows it, you should not use the GO command 
with an address expression; if you do so, the program's behavior is 
unpredictable. 

When you are finished with the debugging session, use the EXIT command 
to leave the debugger. You must not restart a program from the beginning 
unless you first exit from the debugger. Otherwise, unspecified results 
occur. 

If your program loops or fails to complete exec uting, o r if you need to 
interrupt it for any other reason, you can press |ctrl/y| to return to the 
DCL command level. For example: 

dbg>go 

$ 

The $ prompt on the terminal indicates that you have returned to the DCL 
command level. To return to the debugger, type DEBUG or CONTINUE. 
If you type DEBUG, control returns to the debugger and the debugger 
prompts you for a command. If you type CONTINUE, control returns 
to the program and the debugging session continues from where it was 
interrupted. 

If you do not want to continue the debugging session, you can enter a 
STOP command or another DCL command to stop the debugging session. 
STOP prevents exit handlers in your program or in the debugger from 
executing. You can also reissue the RUN command with the image name 
if you want to rerun the program, beginning with its starting conditions. 


4.5.2 Stepping Through a Program 

When you want to execute single statements so that you can display 
and/or modify variables between statements, you can use the STEP 
command. Qualifiers and settings for the STEP command allow you to 
execute more than one statement at a time, to execute machine instructions 
instead of statements, and to step into routines. 
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4.5.2.1 Executing One or More Statements 


By default, the STEP command executes a single line of the source pro¬ 
gram; if a line contains more than one statement, the debugger executes 
all of the statements on the line. If a statement occupies more than one 
line, STEP executes the entire statement. 


NOTE 


The discussion in the remainder of this chapter assumes that no 
line of source code contains more than one statement. 

You can use the STEP command to execute one statement at a time. You 
can also specify the number of statements to be executed. For example: 

DBG>STEP 6 

When this command is executed, the debugger executes the next five 
statements and then suspends execution. 

As you step through a program, the debugger displays only the line 
numbers of the statements being executed. 


4.5.2.2 Executing Instructions 



For each PASCAL statement, there are one or more machine language 
instructions. By default, the debugger executes one statement each time 
you issue one STEP command. You can override this default by entering 
qualifiers on a STEP command or by entering a SET STEP command to 
change the default. The STEP/INSTRUCTION command executes a single 
machine instruction, and the command SET STEP INSTRUCTION changes 
the step mode from line to instruction. When you are in instruction mode, 
you must enter the STEP command for each instruction; the debugger 
then displays the machine language instruction. For example: 

dbg>set step instruction 

DBG>STEP 

stepped to SUMW.LINE 9+20: MOVL R0.R2 

9: READ (Highest); 

DBG>STEP 

stepped to SUM\7.LINE 10: BRW SUM\7.LINE 19+23 
10: WHILE Highest <> 0 DO 


DBG>STEP 
stepped to 


SUM\y.LINE 19+23: TSTL 

READ (Highest); 


R2 


19: 
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When you issue the SET STEP INSTRUCTION command and sub¬ 
sequently issue STEP commands without qualifiers, instruction mode 
remains in effect. You can override this setting by including the /LINE 
qualifier in a STEP command. For example: 

DBOSTEP/LINE 10 

This command tells the debugger to execute 10 lines, regardless of the 
current step setting. 


4.5.2.3 Debugging Routines 

When you are stepping through a program, or when the debugger has 
suspended program execution, you must make a decision when the next 
statement in the program is one of the following: 

• A procedure call 

• A statement that includes a function designator 

In either case, you can decide whether or not to step through the routine. 
By default, the debugger continues the program's execution and returns 
control to you when the routine exits. 

To step through the routine, change the default or use the command: 
DBOSTEP/INTO 

If you change the default and you do not want to step through the routine, 
you must use the /OVER qualifier: 

DBOSTEP/OVER 

If the names declared in this module are not already in the debugger's 
symbol table, you must also enter a SET MODULE command to include 
the symbols (including line numbers) that you want to access. 

The STEP command also lets you decide whether you want to step 
through system routines such as system services. By default, the STEP 
command does not step through system routines; however, you can 
change this default by specifying STEP/SYSTEM. You cannot, however, 
set breakpoints or examine data that are being used by system routines. 

In addition to system routines, your program will include many references 
to VAX PASCAL run-time routines. Because these routines are not part of 
the operating system, you need to specify only STEP/INTO to enter them, 
not STEP/SYSTEM. 
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You can use the SET STEP command to change the default mode for 
stepping. For example: 

DBOSET STEP INTO 

After this command, the debugger steps into all routines, including those 
provided as part of the VAX PASCAL run-time support. 

To avoid unnecessary overhead resulting from the STEP command, you 
should use STEP to execute only a few instructions at a time. To execute 
many instructions and then stop, use a SET BREAK command to set a 
breakpoint, and then issue a GO command. The debugger will execute 
instructions until the breakpoint is reached. 


4.5.3 Breakpoints 

The BREAK commands let you select specified locations for program 
suspension. Thus, you can let a program run until it reaches a specified 
statement; then you can examine or modify variables in the program 
at that point. Note that if you set a breakpoint at a location currently 
occupied by a tracepoint, the tracepoint is canceled, and vice versa. 

You can use the following commands to control breakpoints: 

• SET BREAK defines a line number, label number, routine name, or an 
address at which to suspend execution. 

• SHOW BREAK displays all breakpoints currently set in the program. 

• CANCEL BREAK removes selected breakpoints or all breakpoints. 

For example, the command 

DBOSET BREAK '/.LINE 19 

sets a breakpoint at the statement corresponding to the line numbered 19 
in the source program. When the breakpoint at line 19 is reached during 
the execution of the program, the debugger interrupts the program. For 
example: 

DBOSET BREAK ‘/.LINE 19 
DBOGO 

break at MAINP\y,LINE 19 

19: READ (Highest); 
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After the breakpoint is set, the GO command causes program execution 
to continue. When the breakpoint is reached, the debugger interrupts the 
program and displays a message. At this breakpoint, you can examine or 
change variables, begin stepping through the program, and so on. 

To set a breakpoint at a routine, specify it by name. For example: 

DBOSET BREAK PRINT.ROUTINE 

This command sets a breakpoint at the start of the routine Print-Routine. 

You can use the /AFTER qualifier to control when a breakpoint takes 
effect. For instance, if you set a breakpoint on a line that is in the range 
of a WFilLE loop, and you want the breakpoint to be effective the third 
time through the loop, then specify /AFTER, as shown in the following 
example: 

DBOSET BREAK/AFTER:3 XLINE 38 

After this command is issued, the specified breakpoint will have no effect 
the first two times control reaches that point. The third time, however, the 
breakpoint will stop execution of the program. 

Note that if you use the /AFTER qualifier, the breakpoint is reported not 
only on the specified occurrence, but also every time it occurs thereafter. 

The SET BREAK command also lets you specify some action to be taken 
each time a breakpoint is encountered. For example, to set a breakpoint at 
a location, examine one or more variables, and then continue, you could 
enter a SET BREAK command as follows: 

DBOSET BREAK 7,LINE 29 DO (EXAMINE RADIUS; EXAMINE AREA; GO) 

DBOGO 

After this command, the debugger sets a breakpoint at line 29. Each 
time the statement on this line is executed, the debugger interrupts the 
program, displays the contents of the variables Radius and Area, and 
executes the GO command to continue execution. 

You can set a breakpoint only on a line that contains the beginning of an 
executable statement. 

You can remove a breakpoint with the CANCEL BREAK command. For 
example: 

DBG>CANCEL BREAK y.LINE 9 
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This command cancels the breakpoint at line 9. To remove all breakpoints, 
enter: 

DBOCANCEL BREAK/ALL 

You can display the breakpoints currently in effect with the SHOW 
BREAK command. 


4.5.4 Tracepoints 

A tracepoint is similar to a breakpoint in that it suspends program exe¬ 
cution and displays the address at the point of suspension. However, in 
the case of a tracepoint, program execution resumes immediately. Thus, 
tracepoints let you follow the sequence of program execution to ensure 
that execution is carried out in the proper order. 

Note that if you set a tracepoint at a location currently occupied by a 
breakpoint, the breakpoint is canceled, and vice versa. 

You can use the following commands to control the operation of trace- 
points: 

• SET TRACE defines a line, label, routine name, or an address where 
execution is momentarily suspended. 

• SHOW TRACE displays the locations where tracepoints are currently 
set. 

• CANCEL TRACE removes one or more current tracepoints. 

For example, if you want to keep track of the number of times the routine 
Insideout is called, you can use the SET TRACE command as follows: 

DBOSET TRACE INSIDEOUT 

Each time a call is made to Insideout, the debugger displays a message 
like the following: 

trace at MAINP\INSIDEOUT 

The message gives the pathname of the symbol. 

To set a tracepoint on a given statement, use the %LINE specifier; for 
example: 

DBOSET TRACE '/.LINE 30 

While this tracepoint is set, the debugger displays a message each time the 
statement on line 30 is executed. 


Debugging VAX PASCAL Programs 4-27 






Similarly, to set a tracepoint on a given label, use the %LABEL specifier, 
as shown here: 

DBOSET TRACE ‘/.LABEL 1 

While this tracepoint is set, the debugger displays a message each time the 
statement prefixed by the label 1 is executed. 

You can set a tracepoint only on a line that contains the beginning of an 
executable statement. 

You can remove a tracepoint with the CANCEL TRACE command. For 
example: 

DBOCANCEL TRACE ‘/.LABEL 1 

This command cancels the tracepoint at label 1. To remove all tracepoints, 
enter the command: 

DBOCANCEL TRACE/ALL 

You can modify the SET TRACE and CANCEL TRACE commands with 
the /BRANCH or /CALL qualifier. The debugger will then either set or 
cancel tracepoints at all instructions that are members of the family of 
BRANCH or CALL instructions. For example: 

DBOSET TRACE/BRANCH 

This command causes the debugger to set tracepoints at each of the 
following instructions: BNEQ, BEQL, BGTR, BLEQ, BGEQ, BLSS, BGTRU, 
BLEQU, BVC, BVS, BGEQU, BLSSU, BRB, BRW, JMP, BBS, BBC, BBSS, 
BBCS, BBCC, BBSSI, BBCCI, BLBS, BLBC, ACBB, ACBW, ACBL, ACBQ, 
ACBD, ACBG, ACBH, AOBLEQ, AOBLSS, SOBGEQ, SOBGTR, CASEB, 
CASEW, CASEL. 

To remove tracepoints on branch instructions, issue the command: 

DBOCANCEL TRACE/BRANCH 

The command SET TRACE/CALL causes the debugger to set tracepoints 
at each of the following instructions: CALLS, CALLG, BSBW, BSBB, JSB, 
RSB, RET. To remove these tracepoints, issue the CANCEL TRACE/CALL 
command. 

You can display the current tracepoints in effect with the SHOW TRACE 
command. 
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4.5.5 Watchpoints 


A watchpoint is a location that the debugger monitors so that it can 
inform you when your program has made an attempt to modify the 
location's contents. When you debug a PASCAL program, you can set 
a watchpoint on a variable, a record field, or a component of an array. 
When the watched item is modified, the debugger suspends program 
execution, displays the address of the instruction, and prompts for a 
command. 

Watchpoints are monitored continuously. You can determine, therefore, 
whether locations are being modified inadvertently during program 
execution. 

You can use the following commands to control watchpoints: 

• SET WATCH defines the location(s) to be monitored. 

• SHOW WATCH displays the location(s) currently being monitored. 

• CANCEL WATCH disables monitoring of the specified locations. 

You can monitor only static variables and dynamic variables allocated 
in heap storage by the NEW procedure. Automatic variables, which are 
allocated storage on the stack, cannot be watched. For example, if X is an 
automatic variable, an attempt to monitor X results in the following error: 

DBOSET WATCH X 

%DEBUG-W-BADWATCH, cannot watch protected address 7FFC8534 

When a watched variable is modified, the debugger displays the variable's 
former contents and its modified contents. The debugger then prompts 
you to enter a command. 

For the following example, suppose that the variable String has been 
declared in the program Mainp as follows 

VAR 

string : PACKED ARRAY[1..5] OF CHAR; 

and that the program includes an assignment statement of the form: 

string := 'abcde'; 
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This example illustrates the use of watchpoints and the three WATCH 
commands: 

DBG>SET WATCH STRING 
DBG>SHOW WATCH 
watchpoint of MAINP\STRING 
DBG>GO 

watch of MAINPXSTRING at routine MAINP 
45: string := 'abcde'; 

old value = ' '.' ' 

new value = ''abcde'' 
break at MAINP\y.LINE 45 

46: times := 12; 

DBODEPOSIT STRING='vwxyz' 

DBOEXAMINE STRING 
MAINPXSTRING: 'vwxyz' 

DBG>CANCEL WATCH STRING 
DBG>GO 

In the example, the program executes until an assignment is made to the 
watched variable String. Then the debugger displays the old and new 
contents of String and prompts for a command. Entering the DEPOSIT 
command, as in this example, changes the contents of the watched 
variable. 

After your program encounters a watchpoint, you must enter a GO or 
STEP command to cause the program's execution to continue. 

Note that you cannot set watchpoints, tracepoints, and breakpoints at the 
same location; the most recently issued command overrides the other(s). 
This restriction is not normally a problem because watchpoints are set 
on variables, while breakpoints and tracepoints are set on executable 
statements. 

You cannot reliably set a watchpoint on a variable smaller than one byte 
because the debugger uses a length in bytes to determine the size of 
the watched location. Also, you cannot reliably set a watchpoint on an 
unaligned variable such as a component of a packed structured variable. If 
you try to monitor such a component, the debugger may signal that it has 
reached a watchpoint any time that the value of another component of the 
variable is changed. 

Occasionally, run-time errors may occur if a watchpoint is in effect while 
input or output operations are being performed. Thus, to watch a variable, 
you must be careful not to set the watchpoint until all previous I/O is 
completed. You can do this by setting a breakpoint after an I/O operation 
and then setting a watchpoint. 
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4.5.6 Displaying the Calling Sequence 

The SHOW CALLS command produces a traceback of calls; the command 
is particularly useful when you have returned to the debugger following 
an error condition (for example, an access violation). SHOW CALLS is 
also useful after a |ctrl/y| interrupt, especially if you entered |ctrl/y| to stop 
an infinite loop. 

When the debugger displays a traceback list, it shows you the sequence 
of calls leading to the current module. If you supply a value with SHOW 
CALLS, the debugger displays only the number of calls specified by the 
value. For example, the following command displays the names of the top 
six routines on the call stack: 

DBOSHOW CALLS 6 


4.6 Examining and Manipulating Program Data 

This section describes how to use the debugger to display, interpret, and 
modify the contents of PASCAL variables. Section 4.6.1 describes the 
EXAMINE and DEPOSIT commands. Section 4.6.2 describes how the 
debugger displays variables of different types. See Section 4.2.2 for an 
explanation of how optimization can affect EXAMINE and DEPOSIT. 


4.6.1 Using the EXAMINE and DEPOSIT Commands 

The EXAMINE and DEPOSIT commands display and change the values of 
ordinal variables, real variables, and components of structured variables. 

The EXAMINE command displays the contents of a selected variable. For 
example, the following command displays the value of the variable String: 

DBOEXAMINE STRING 
CALCXSTRING: 'stringa' 

The DEPOSIT command changes the value of a variable. For example, the 
following command gives the variable String a new value of 'stringb': 

DBG>DEPOSIT STRING = 'stringb' 
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The DEPOSIT command follows PASCAL'S data type conversion rules. 
You can specify the new value as a compile-time or run-time expres¬ 
sion. Note that you must enclose in apostrophes any ASCII string being 
deposited. The debugger evaluates the expression using PASCAL'S rules. 

If you set a breakpoint on the name of a routine, you must issue a 
STEP command after the breakpoint is reached in order to execute the first 
statement of the routine. Until that point, no variables have been allocated 
storage. Therefore, before you can examine or deposit into variables in a 
routine, you must either issue a STEP command to enter the routine, or 
you must reach a breakpoint within the routine. 


4.6.1.1 Examples of Examining and Depositing Data 

This section contains examples of examining and depositing data in several 
different types of PASCAL variables. Each example consists of a variable 
declaration and sample interactions involving that variable. 

1. Packed array of character 
Declaration: 

var 

fixed string : packed array [1..10] of char; 

Sample interaction: 

DBOexamine fixed.string 
DEBUG_TEST\FIXED_STRING: "WXYZ 

DBG>deposit fixed.string = 'ABC 
DBG>examine fixed string 
DEBUG.TESTXFIXED.STRING: "ABC 

2. Varying string 
Declaration: 

var 

vary.string : varying [10] of char; 

Sample interaction: 

DBG>ex 2 unine vary.string 
DEBUG.TESTWARY. STRING: "12346" 

DBG>deposit vary.string = 'ABCDE' 

DBG>exainine vary.string 
DEBUG.TESTWARY. STRING: "ABCDE" 
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3. Record 


Declaration: 


var 

rec : record 

fieldl : (red,green,blue); 
field2 : set of 'A'..'Z'; 

end; 

Sample interaction: 

DBOexamine rec.fieldl 
DEBUG_TEST\REC.FIELDl: GREEN 
DBG>exainine rec 
DEBUG_TEST\REC 

FIELDl: GREEN 

FIELD2: ["A".."G", "R", "Z”] 

DBG>depo8it rec.fieldl = blue 
DBG>deposit rec.field2 = ['A'..'C'] 

DBG>examine rec 
DEBUG_TEST\REC 

FIELDl: BLUE 

FIELD2: ["A".."C"] 

4. Array 

Declaration: 

var 

arr : array ['A'..'D'] of real; 

Sample interaction: 


DBG>ex 2 unine arr 
DEBUG_TEST\ARR 


["A"] : 

1.000000 

["B"] : 

2.000000 

[”C"] : 

3.000000 

["D"] : 

4.000000 

DBG>examine arr['B':'C'] 

DEBUG.TESTNARR 


["B”] : 

2.000000 

[•’C] : 

3.000000 
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4.6.1.2 Using Operators and Expressions 



This section summarizes the debugger's interpretation of operators in 
arithmetic expressions and address expressions. You can use these op¬ 
erators in references and expressions; the debugger will perform the 
arithmetic on integers. 

VAX PASCAL Expressions 

Using VAX pascal's rules for data type conversion and operator prece¬ 
dence, the debugger can evaluate any legal VAX PASCAL expression 
except a function designator or a VARYING string expression. 

The EVALUATE command evaluates expressions and performs operations 
on the following types: INTEGER, UNSIGNED, CHAR, BOOLEAN, enu¬ 
merated, subrange, REAL, SINGLE, DOUBLE, QUADRUPLE, RECORD, 
ARRAY, VARYING OF CHAR, SET, and FILE. 

The VAX PASCAL operators supported by the debugger are listed below 
in decreasing order of precedence: 


NOT 


*, /, DIV, REM, MOD, AND 
+, -, OR 



=,<>,<,<=,>,>=, IN 
Note that the type cast operator (::) is not permitted. 

The debugger evaluates expressions in the same way as the VAX PASCAL 
compiler. Spaces must separate elements of the debugger commands; 
therefore, variable names and multicharacter operators may not contain 
embedded spaces. The debugger accepts constants in VAX PASCAL 
syntax, with the following exception: constructors cannot be deposited 
into records or arrays, nor can they be evaluated. 

Evaluation of a variable of a pointer type produces the contents of the 
pointer in hexadecimal radix. The only operations allowed on pointer 
variables are tests for equality and inequality. 

An expression must contain only variables, constants, and constant 
identifiers in the active symbol table in order to be evaluated. To refer to 
the last expression evaluated, use the backslash (\) symbol. By default, 
the evaluated expression is displayed in decimal radix and in the type 
declared for the expression. You may, however, override the radix and 
type in effect (see Section 4.6.1.2). For example: 
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DBOEVALUATE 

26 

DBOEVALUATE 

2 

DBOEVALUATE 

9 

DBOEVALUATE 

8 

DBOEVALUATE 
[1..15] 


X MOD 3 


X REM Y 


[1. .10] [5. .15] 


This example uses the EVALUATE command first to calculate the modulus 
of X with respect to 3, and then to calculate the remainder of the division 
of X by Y. 


Operators for Address Arithmetic Expressions 

Table 4-1 lists the special characters you can use to form address arith¬ 
metic expressions in many of the debugger commands. In the context 
of an address expression, the debugger performs the integer arithmetic 
specified by the operator on the address values. These values are treated 
as unsigned longword integers. For example: 

DBOEVALUATE/ADDRESS X 
2147255604 
DBOEXAMINE X 
PR0G\X: 10 
DBOEXAMINE X+4 
2147255608: 20 

The EVALUATE/ADDRESS command displays the virtual address of 
X. The first EXAMINE command displays the value of X; the second 
displays the contents of the location of X plus four bytes. Note that the 
debugger shows the virtual address of this variable instead of its name. 
The debugger uses the default type (in this case, LONG INTEGER; see 
Section 4.6.1.2) to determine how many bytes to display and how to 
display them. 
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Table 4-1: Operators for Address Arithmetic 


Character Interpretation 

. or @ Indirection operator; finds contents of operand 

+ Arithmetic addition (binary) operator, or unary plus sign 

Arithmetic subtraction (binary) operator, or unary minus sign 
* Arithmetic multiplication operator 

/ Arithmetic division operator 

( ) Precedence operators; evaluate (enclosed) first 


The order of operations in an address expression is determined by the 
following three factors, which are listed in order of decreasing precedence: 

1. The use of parentheses to group operands with particular operators 

2. The relative priority of each operator (see below) 

3. Left-to-right evaluation of the expression 

In the following list, operators are listed in order of decreasing precedence: 

1. Indirection (. or @) 

2. Unary (+ or -) 

3. Multiplication and division (* and /) 

4. Addition and subtraction (+ and -) 
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4.6.1.3 Specifying the Data Type and Radix 

When you examine or deposit data into a PASCAL variable, you do not 
need to specify the data type of the variable, unless you want to alter the 
way in which the data is displayed or deposited. The debugger always 
uses the declared data type of a variable, unless you override it with an 
appropriate qualifier, for example, /ASCII, /BYTE, /LONG, /WORD, or 
/FLOAT (see Appendix H, Debug Command Summary for the complete 
list of qualifier options). 

The VAX PASCAL compiler informs the debugger of the type of every 
data object in the symbol table. Therefore, the debugger can determine 
the default type in which it is to display data. When an EXAMINE or 
DEPOSIT command specifies a location that has no associated data type 
(for example, an absolute address), the debugger uses its default type to 
determine how many bytes to display or modify. The debugger also uses 
the default type whenever an EXAMINE or DEPOSIT command specifies 
a virtual address or an address expression more complicated than a single 
symbolic reference. 

For VAX PASCAL, the debugger's default type for data is LONG; its 
default type for line and label number references is INSTRUCTION. You 
can change either default type with the SET TYPE command. 

You can use the SET TYPE/OVERRIDE command to control the oper¬ 
ation of all succeeding EXAMINE and DEPOSIT commands that do not 
explicitly specify a type. For example: 

DBOSET TYPE/OVERRIDE BYTE 

After this command is issued, an unqualified EXAMINE or DEPOSIT 
command displays or modifies only the first byte of any variable's storage. 
To restore the normal interpretation of data types, use the CANCEL TYPE 
/OVERRIDE command. 

You can use the SET MODE command and the radix qualifiers with the 
DEPOSIT, EXAMINE, and EVALUATE/ADDRESS commands to control 
the radix of data and virtual addresses that you enter and display. By 
default, the debugger displays virtual addresses in decimal; it displays data 
in the same form in which PASCAL would write it. The /HEXADECIMAL 
and /OCTAL qualifiers, applied to EVALUATE/ADDRESS, cause the 
debugger to display the address in hexadecimal or octal. Applied to 
DEPOSIT or EXAMINE, they cause the debugger to enter or display the 
storage of the variable as a hexadecimal or octal number. 
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The action of the SET MODE command is similar. SET MODE 
HEXADECIMAL causes all variables and addresses to be entered and 
displayed as hexadecimal numbers; SET MODE OCTAL causes an octal 
display. In addition, the radix mode established by the SET MODE com¬ 
mand controls the debugger's interpretation of address expressions. When 
the mode is hexadecimal, the debugger interprets numeric address expres¬ 
sions as hexadecimal numbers; when the mode is octal, as octal numbers. 
Use SET MODE DECIMAL to restore the normal display of addresses and 
variables. For example: 

DBOEXAMINE X 
MAINPXX: 10 

DBOSET MODE HEXADECIMAL 
DBOEVALUATE/ADDRESS X 
00000260 

DBODEPOSIT 0000026030 
DBOEXAMINE X 
MAINPXX:00000030 
DBOSET MODE DECIMAL 
DBOEXAMINE X 
MAINPXX: 48 


4.6.1.4 Restrictions on Examining and Depositing Data 

In general, you can examine, evaluate, and deposit into variables, record 
fields, and array components. An exception to this occurs under the 
following circumstances: if a variable is not referenced in a program, the 
PASCAL compiler may not allocate the variable. If the variable is not 
allocated and you try to examine it or deposit into it, you will get an error 
message. 

When depositing data into variables, the debugger truncates the high- 
order bits if the value being deposited is larger than the variable; it fills 
the high-order bits with zeros if the value being deposited is smaller than 
the variable. If the deposit violates the rules of assignment compatibility, 
the debugger displays an informational message. 

Automatic variables can be examined and can have values deposited into 
them; however, since automatic variables are allocated in stack storage 
and are contained in registers, their values are considered undefined until 
the variables are initialized or assigned a value. For example: 

DBOEXAMINE X 
MAINPXX: 2147287308 

In this example, the value of variable X should be considered undefined 
until after a value has been assigned to X. 
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4.6.2 The Debugger's Display of Data 


The debugger always displays the value of a variable in terms of the 
pathname it used to locate the variable. The pathname is separated from 
the variable's value by a colon (:) and one space. The debugger's defaults 
for displaying values of various types are as follows: 

• Values of types INTEGER and UNSIGNED are displayed in decimal 
radix. 

• Values of enumerated types, including the predefined type BOOLEAN, 
are displayed in uppercase letters. 

• Values of subrange types are displayed as they would be in the base 
type. 

• Values of real types (REAL, SINGLE, DOUBLE, and QUADRUPLE) are 
displayed in exponential notation. 

• Character values (those of type CHAR, ARRAY[l..n] OF CHAR, and 
PACKED ARRAY[l..n] OF CHAR VARYING strings) are enclosed 
in apostrophes. Nonprinting characters within character strings are 
displayed exactly as they are written in VAX PASCAL: the ordinal 
value of the nonprinting character is enclosed in parentheses after the 
apostrophe that ends the string being printed. 

• Set values are enclosed in brackets. 

• All record fields and their values are displayed. 

• All array components and their values are displayed. 

When you examine a pointer, the debugger displays its value in the form 
of a virtual address. You can modify the value of a pointer in one of two 
ways: 

• Deposit another pointer's value into it, making symbolic reference to 
both pointers. 

• Deposit a virtual address into it, referring to the virtual address of the 
dynamic variable and not to its name. 

You can deposit a virtual address into a pointer by making a symbolic 
reference to the pointer; however, this operation results in a warning 
message from the debugger. 
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4.7 Using Symbolic Names and Accessing Program Locations 


This section describes how to access "lower level" constructs (such as 
absolute addresses, registers, or instructions) that are seldom needed. 
Much of this information is needed only when you are debugging mul¬ 
tiunit programs and you must exercise control over the debugger symbol 
table (see Section 4.7.1.2) or resolve "not unique" debugger messages 
(see Section 4.7.3). Information in this section is not necessary if you are 
debugging a single unit program and are just examining and manipulating 
values in variables. 

During a debugging session you can reference the following items: 

1. Locally defined symbolic names, such as names of variables 

2. Globally defined symbolic names, such as names of subroutines 

3. Virtual memory locations, such as an address returned by a system- 
defined routine 

4. Permanent debugger symbols to which you can refer at any time 
during a debugging session. Note that the percent sign (%) is a 
required prefix to the symbol name. 

• %R0-%R11 General registers 0 through 11 

• %AP Argument pointer 

• %FP Frame pointer 

• %SP Stack pointer 

• %PC Program counter 

• %PSL Processor status longword 

5. User-defined debugger symbols, as described in Section 4.7.1.4 

Access to symbols described by items 1 and 2 in the preceding list depends 
on whether you specify /DEBUG when you compile and link your 
program. Also, note that some of these symbols may disappear as a 
result of optimizations performed at compile time. Thus, in addition 
to /DEBUG, you should specify /NOOPTIMIZE when you compile a 
program that you intend to run using the debugger (see Section 4.2.2). 
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4.7.1 


Debugger Symbol Table 


The debugger maintains a symbol table that lists the symbols to which 
you can refer during a debugging session. The debugger symbol table 
always contains the names of global symbols in the image. The names 
of local symbols, that is, the names of variables declared within your 
program, are available in the image file only if you included the /DEBUG 
qualifier in the PASCAL and LINK commands. 

The symbol table contains the type, attributes, and memory location 
of each accessible name or variable. The type information includes 
dimension information for arrays and length information for character 
strings. 


4.7.1.1 Names Included in the Symbol Table by Default 

Before you can refer to a name, you must ensure that the name is in the 
debugger symbol table. When a debugging session begins, the symbol 
table contains all global symbols. The table also contains names of 
variables that are declared within the main program and its nested blocks. 
For example, a PASCAL program may contain the lines: 

PROGRAM Mainp; 

VAR 

X. Y. Z : REAL; 

A. B. C : INTEGER; 

PROCEDURE Printlist; 

VAR 

Count : REAL; 

X : PACKED ARRAY[1..10] OF CHAR; 

BEGIN 


END (♦ Printlist ; 
BEGIN (♦ Mainp ♦) 

END. (* Mainp *) 
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When a debugging session for this program begins, all of the names 
declared in Mainp and the nested procedure Printlist are in the symbol 
table by default. However, you do not have access to the automatic 
variables Count and X declared in Printlist while program control is still 
in Mainp (see Section 4.7.3.3). When program control enters Printlist, 
you then have access to all variables declared in both Mainp and Printlist. 
To distinguish between X in Mainp and X in Printlist, you may have to 
include a pathname with the name or, alternatively, change the default 
scope (see Section 4.7.3). 


4.7.1.2 Adding Names to the Symbol Table 

A debugger module is equivalent to a PASCAL compilation unit—that is, 
either a prograim or a module. If you want to set a breakpoint or examine 
variables in a module, that module's symbols must be in the debugger's 
symbol table. When you begin a debugging session, however, only global 
symbols and symbols from the module indicated in the debugger's initial 
message are in the symbol table. To copy symbols from other modules 
into the symbol table, you must use the SET MODULE command. 

For example, an image being debugged may include a separately compiled 

module named Print_Args. To set a breakpoint in Print__Args, you must 

first include its symbols in the symbol table: 

DBOSET MODULE PRINT.ARGS 

Following this command, you can set breakpoints and manipulate stati¬ 
cally allocated variables in Print_Args. When a routine declared in Print— 

Args is invoked, you will have access to all of its local variables. 

If you are debugging many compilation units that together define more 
symbols than the symbol table can hold, you can use the ALLOCATE 
command to acquire additional memory for the symbol table. 

Note that you cannot access the name of an automatic variable until the 
block that declares it is executing. This situation occurs because storage is 
not allocated for automatic variables until the block is activated. 
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4.7.1.3 Defining Addresses Symbolically 

You can assign a symbolic name to a program location, value, or character 
string with the debugger command DEFINE. You might, for instance, 
define a symbol to represent a frequently referenced location that is hard 
to remember. The following example assigns the symbolic name M2 to 
the integer variable M in the subroutine SUB2 and then references the 
variable by its assigned name: 

DBG> DEFINE M2 = SUB2\M 
DBG> EXAMINE M2 
SUB2\M: 6 

The symbol definition lasts for the duration of the debugging session or 
until you cancel it with the UNDEFINE command. 


4.7.1.4 Displaying Names in the Symbol Table 

Use the SHOW MODULE command to display the current contents of the 
symbol table. For example: 

DBG>SH0W MODULE 


module name 

symbols 

size 

TESTSAMPLE 

yes 

2284 

SAMPLE 

yes 

926 

PROJECTIONS 

yes 

678 

WRITE.ERROR 

yes 

1012 


total modules: 4 remaining size: 63732. 


4.7.2 Specifying References and Locations 

The debugger's symbol table is the means by which you can refer sym¬ 
bolically to names and program locations. You need to concern yourself 
only with the name, and not the memory location, of the data. This 
symbolic form of reference applies to program data, such as symbolic 
constants, variables, array components, and record fields; it also applies to 
program addresses, such as program line numbers, labels, and the names 
of routines and compilation units. 

You can refer to the following kinds of symbols: 

• Constant identifiers 

• Variables 

• Global symbols 
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Program locations 

Permanent symbols defined by the debugger 


Debugger input expressions can contain elements that denote variable 
references or constant values. The debugger interprets the data items you 
specify according to these rules: 

1. If a data item begins with an alphabetic letter, a dollar sign ($), or 
an underscore the debugger assumes that the item is a constant 
identifier, a variable, or a symbolic reference to an address. 

2. If a data item begins with an integer (0 through 9), the debugger 
assumes that the item is a numeric constant. 

3. If a data item is enclosed in apostrophes, the debugger assumes that 
the item is a character-string constant, unless it is preceded by a 
percent sign (%) and one of the letters B, O, or X. Then, the debugger 
interprets the item as an integer written in binary, octal, or hexadecimal 
notation. 


4.7.2.1 Specifying Variables 


You can specify data addresses symbolically for variable names, including 
the names of record fields and array components. For example, a PASCAL 
program may contain the following declarations: 



TYPE 


Charstring = PACKED ARRAY[1..20] OF CHAR;. 


VAR 


Message : Charstring; 

You can refer to this variable in a debugging session as follows: 

DBG> DEPOSIT MESSAGE='This is a new string' 

DBG> EXAMINE MESSAGE[13] 

XLOOKXMESSAGE[13]; 'w' 

The DEPOSIT command places a new character string value in the 
variable Message. The EXAMINE command displays the current contents 
of the array component Message[13]. 

Indexes that refer to array components can be either compile-time or 
run-time expressions. If you refer to a variable, a record field, or an array 
component that is not defined in the symbol table, or if you attempt a 
reference out of the array bounds that are defined at compile time, the 
debugger issues a message. 
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4.7.2.2 References to Global and External Symbols 

Global and external symbols can be accessed from all blocks. In a VAX 
PASCAL program, global symbols are those declared with the GLOBAL 
attribute; external symbols are those declared with the EXTERNAL at¬ 
tribute. However, unless you use a SET MODULE command to place 
the definitions of global and external symbols in the symbol table, no 
information about the types of the symbols is available with debugger 
commands. 


4.7.2.3 Accessing Current, Previous, and Next Locations 

The debugger provides a quick method for referring to the relative data 
addresses or locations in DEPOSIT and EXAMINE commands: 


Symbol 

Meaning 

. (period) 

The current location (the location most recently referred to by 
an EXAMINE or DEPOSIT command). By default, the current 
location is displayed in the same type as the last location 
examined. 

" (caret) 

The previous location (the location at the next lower logical 
position from the current location). If no type information 
is previous location is displayed in the same type as the 
location preceding the last location examined. You can use 
this symbol to refer to the previous field of a record or the 
previous component of an array. 

[ret] 

The next location (the location at the next higher logical 
position from the current location). If no type information 
is applicable, the next location is displayed in the same type 
as the location following the last location examined. Press 
the RETURN key after typing the EXAMINE command to 
refer to the next field in a record or the next component in an 
array. Note that you cannot use the RETURN key with the 
DEPOSIT command. 


For example, assume the following PASCAL variable declaration: 

TYPE 

Result = ARRAY[1..10] OF INTEGER; 

VAR 

Score ; Result; 
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You can access components of this array as follows: 

DBOEXAMINE SCORE [5] 

XL00K\SC0RE[5]: 14 
DBODEPOSIT . * 100 

This DEPOSIT command puts a value of 100 in the location most recently 
referred to, that is, Score[5]. 

To specify the previous location, type an up-arrow or a circumflex (") with 
either the DEPOSIT or EXAMINE command. For example: 

DBOEXAMINE “ 

XL00K\SC0RE[4]: 19 

This EXAMINE command displays the contents of the previous location, 
that is, Score[4]. 

To specify the next location relative to the current location (which is now 
Score[4]), simply omit the name of the variable. For example: 

DBOEXAMINE 
XL00K\SC0RE[5]: 100 

This EXAMINE command displays the contents of the next component in 
the array Score relative to Score[4]. 

In VAX PASCAL, you can refer to previous and next locations only for 
record fields and array components. For a record field, the previous 
and next locations are determined by the order in which the fields were 
declared. 

The following rules apply in references to current, next, and previous 
locations. 

• If the current location is the first field in the variant part of a record, 
and the variant part has no explicit tag identifier, the previous loca¬ 
tion is the last fixed field in the record. If the variant part has a tag 
identifier, the tag field is the previous location. 

• If the current location is the last field before the variant part of a 
record, and the variant has a tag identifier, the tag field is the next 
location. If there is no tag identifier, the debugger assumes the 
smallest possible value of the tag type and uses the first field of 
the corresponding variant as the next location. 

• You cannot access the previous location if the current location is the 
first component of an array or the first field of a record (including a 
nested record). Likewise, you cannot refer to the location following the 
last component of an array or the last field of a record (including the 
last field before a nested record). 
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4.7.2.4 Specifying Program Locations 

You can specify program locations by program or routine name, by line 
number, by statement label, or by virtual (nonsymbolic) address. To 
specify a routine by name, give the command followed by the name of the 
routine. For example, the command 

DBOSET BREAK PROFITS 

sets a breakpoint at the entry to the routine Profits. 

To specify a line number, use the %LINE specifier, as shown here: 

DBOSET BREAK y,LINE 6 

This command sets a breakpoint at line 6, which corresponds to the 
compiler-generated line number shown in the listing. 

If a statement occupies more than one line, the debugger recognizes 
only the first line of the statement. For example, to set a breakpoint on 
a statement that occupies several lines, beginning with line 9, use the 
following command: 

DBOSET BREAK ‘/.LINE 9 

Messages from the debugger that specify program locations also refer to 
the first line of a multiline statement. 

You can also set a breakpoint as follows: 

DBOSET BREAK PROFITS\y.LINE 11 

This command sets a breakpoint at line 11 in Profits. 

To specify a statement label, use the %LABEL specifier. For example: 

DBOSET BREAK ‘/.LABEL 50 

This command sets a breakpoint at the executable statement prefixed by 
the declared label 50. 

To specify a virtual address, issue the command with a decimal argument. 
For example: 

DBOSET BREAK 700 

You can determine the virtual address of a line or label number or a 
variable by entering an EVALUATE command as follows: 

DBOEVALUATE/ADDRESS '/.LABEL 17 
800 
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The debugger displays the virtual address (in decimal) of the instructions 
for the statement prefixed by the label 17. 

If a variable is in a register instead of in virtual memory, the EVALUATE 
/ADDRESS command returns the name of the register. You must use this 
register name to deposit a new value into the variable. 


4.7.3 Making Symbolic References Unique—Prefixes and Scope 

If your program consists of more than one routine, you must be sure 
that your symbolic references are unambiguous. To make a reference 
unambiguous, you can specify its scope to the debugger. 

The scope of a name is the set of program locations within which the 
name refers to the entity associated with it at its declaration. In PASCAL 
terms, the scope of a name is the block in which that name is declared, 
minus any nested blocks in which the name is redeclared. Figure 4-2 
illustrates scope. 

In Figure 4-2, X is declared as an integer variable in procedure A, and 
redeclared as a character variable in function C. The scope of the integer 
variable X is procedures A, B, and D, but not function C, because X is 
redeclared in C. The scope of the character variable X is function C alone. 
The scope of Y is procedure B and function C; the scope of Z is procedure 
D. 

When the debugger attempts to locate the entity associated with a refer¬ 
ence, it looks in the symbol table using its own scope rules. Most of the 
time, you can let the debugger determine the scope of a symbolic refer¬ 
ence for you. Sometimes, however, you must tell the debugger how to 
resolve symbolic references. For example, assume that you are debugging 
two routines; both declare a variable I and are included in the debugger's 
symbol table. Unless you explicitly specify the scope of I, the debugger 
may be unable to determine which variable I corresponds to the reference. 

You specify the scope of a reference in one of three ways: 

• By using the debugger default scope in effect 

• By prefixing the reference with a pathname in a command to specify 
an explicit scope (see Section 4.7.3.1) 

• By setting a new default scope with the SET SCOPE command (see 
Section 4.7.3.2) 
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Figure 4-2: Scope of Name Declarations 


PROCEDURE A; 
VAR X : INTEGER: 


PROCEDURE B; 



PROCEDURE D; 
VAR Z : INTEGER: 


ZK-344-81 


When the debugger attempts to resolve a reference, it first determines the 
scope of the reference using the following steps: 

1. If the reference includes an explicit pathname, the debugger uses the 
pathname as the scope of the reference. 

2. If the reference does not include an explicit pathname, the debugger 
attempts to use the pathname specified in the most recent SET SCOPE 
command as the scope of the reference. 
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3. If the reference does not include an explicit pathname and no SET 
SCOPE command has been issued (or CANCEL SCOPE was issued 
after the last SET SCOPE command), the debugger uses the default 
scope (also called the PC scope) as the scope of the reference. 

When you begin a debugging session, the debugger automatically defines 
the default scope to correspond to that of the main program (the module 
named in the debugger's initial message). However, this default scope is 
dynamic; that is, as you debug your program, the default (PC) scope is 
always the block that is currently active. 

Once the debugger has determined the scope of a reference, it searches 
the symbol table for the reference as follows: 

• If the specified symbolic name is unique within the modules contained 
in the debugger symbol table, the debugger uses that name. 

• If the specified name is not unique within the symbol table, but one of 
its occurrences is within the scope of the reference, the debugger uses 
that occurrence of the name. 

• If the specified name is not defined in the symbol table or if it is 
ambiguous and no occurrence is defined within the scope of the 
reference, the debugger issues an error message. 


4.7.3.1 Specifying Pathnames 

You can specify the scope of a name explicitly by preceding the name of 
the symbol with the names of the compilation unit and the routines in 
which it is located. Use a backslash (\) character to separate the names of 
the compilation unit, the routines, and the symbol. 

This form of specification is called a pathname because it defines the path 
that the debugger must take to locate the name. For example, a PASCAL 
routine may contain the following lines: 

PROCEDURE Mainp; 

VAR X : INTEGER; 


PROCEDURE Insideout; 

VAR X : CHAR; 

When the current scope is Insideout, you do not need a pathname to refer 
to the variable X within Insideout. Simply name the variable: 

dboexamine X 


4-50 


Debugging VAX PASCAL Programs 




However, to specify an address reference in a routine that is not within 
the current scope, you must give a pathname. For example, if the current 
scope is again Insideout, and you want to refer to X within Mainp, you 
must include a pathname: 

dboexamine mainp\x 

Because PASCAL allows routines to be called recursively, you may need to 
distinguish among several calls to the same routine, all of which generate 
new symbols with identical names. When you specify a pathname with 
a debugger command, you can include an invocation number to indicate 
which call to the routine corresponds to the reference. An invocation 
number is a nonnegative integer that you insert in the pathname; this 
number must follow the name of the rightmost routine in the pathname. 
The integer 0 denotes the most recent invocation; the integer 1 denotes 
the immediately previous invocation; and so on. The name of the routine 
and the invocation number must be separated by at least one space or tab. 

For example, suppose that program Prog contains a function Compute, 
which is called recursively. Each call to Compute declares a new variable 
Sum. The following pathname indicates the most recent call to Compute: 

PROGXCOMPUTE 0\SUM 

To refer to the variable Sum that was generated in the previous call to 
Compute, you would write the following pathname: 

PROGXCOMPUTE 1\SUM 

Every pathname that specifies a routine has either an implicit or explicit 
invocation number. When you do not include an explicit invocation 
number, the debugger assumes that the reference is to the most recent call 
to the routine, and it supplies the default value 0. 


4.7.3.2 Changing the Scope 

If you want to make several symbolic references within the same routine, 
you can eliminate the need to specify the pathname with each symbolic 
address by using the SET SCOPE command. Following a SET SCOPE 
command, the debugger applies the pathname you specify in the com¬ 
mand to all symbolic references that are not individually qualified with 
pathnames. For example, the following command sets the scope to that of 
the routine Sub3: 

DBG>SET SCOPE SUBS 
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You can also define a scope list to specify the order in which the debugger 
should search for symbols. For example, the command 

DBOSET SCOPE MAR,JAN,FEB 

instructs the debugger to search first for symbols whose scope includes 
the scope defined by Mar. If the debugger cannot find a specified symbol 
using Mar, it then uses Jan; if necessary, it next uses Feb, and finally, the 
entire symbol table. 

The scope defined in a SET SCOPE command becomes the default scope 
for all symbolic references until you explicitly change or cancel the scope. 
You can determine the current scope at any time by entering the SHOW 
SCOPE command. For example: 

DBOSHOW SCOPE 
scope: SUB2,SUBl 

The message shows that the current scope is set first to that of Sub2, then 
to that of Subl. 

If no SET SCOPE command has been issued, the SHOW SCOPE com¬ 
mand responds as in the following example: 

DBOSHOW SCOPE 

scope: 0 [ = MULT\FORMAT ] 

The symbol 0 shows that the current scope is the default (PC) scope. 

The debugger displays within brackets the module and (if applicable) 
the routine name of the default scope: the scope is that of module Mult, 
routine Format. 

The CANCEL SCOPE command resets the scope to the default PC scope. 

Note that when you use SET SCOPE to define an explicit module name as 
the default scope, the debugger also performs the SET MODULE function. 
Therefore, symbols for the routine specified in your SET SCOPE command 
are placed in the symbol table. However, if control reaches a module 
whose symbols are not included in the symbol table, and you use the 
debugger default scope (PC scope), you must also use SET MODULE to 
place the symbols for that module in the symbol table. 
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4.7.3.3 Scope of Automatic and Static Variables 

If you refer to an automatic variable when the routine that defines the 
variable is not currently active, the debugger displays a warning message. 
For example, this situation occurs when you try to refer to an automatic 
variable declared in a routine that has exited: 

%DEBUG-I-EJCITSTATUS, is '*/,SYSTEM-S-NORMAL, normal successful completion' 
DBOEXAMINE X 

*/,DEBUG-I-SYMNOTACT, symbol XL00K\X not active or not in active scope 

This message notifies you that the variable X in the routine XLOOK is 
recognized by the debugger but is not available for you to examine or 
modify. 

You can examine and modify static variables and variables allocated 
in heap storage whenever their names are in the symbol table. Their 
declaring blocks need not be active. 


4.8 Sample Terminal Session 

The example program Sum is listed below, with the line numbers assigned 
by the compiler. This program prompts for a number and prints the 
sum of integers from one through the number entered. The bug in 
program Sum is obvious—the value of the variable Total is not reset to 0 
when a new number is entered—but the example illustrates some simple 
debugging commands. 
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2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


PROGRAM Sum (INPUT. OUTPUT); 


VAR 


I, Highest. Total : INTEGER; 


BEGIN 

Total := 0; 

WRITE ('Enter am integer; type 0 to quit ; '); 
READ (Highest); 


WHILE Highest <> 0 DO 
BEGIN 

FOR I ;= 1 TO Highest DO 


BEGIN 

Total := Total + I; 


END; 

WRITELN ('The sum of integers from 1 to '. Highest:3. 


is '. Total:4); 


WRITE ('Enter an integer; type 0 to quit : '); 
READ (Highest); 

END; 


END. 


Initially, you would compile, link, and run the program as follows: 

$ PASCAL SUM 
$ LINK SUM 
$ RUN SUM 

Enter am integer; type 0 to quit : 5 
The sum of integers from 1 to 5 is 15 
Enter am integer; type 0 to quit : 4 
The sum of integers from 1 to 4 is 25 
Enter am integer; type 0 to quit : 0 
$ 

The program returns a correct sum for the first number you enter, but the 
sum for the second number is too high. 

$ PASCAL/LIST/DEBUG/NOOPTIMIZE SUM 
$ LINK/DEBUG SUM 
$ PRINT SUM 

The PRINT command prints the listing, which shows the compiler¬ 
generated line numbers. You are now ready to begin a debugging session. 
The notes below are keyed to the terminal session that follows. 

1. When you enter the RUN command, the debugger displays its infor¬ 
mational message and prompts you with its DBG> prompt. 

2. You decide that the problem may lie with the initialization of Total. 
You can test this hypothesis by examining the value of Total each time 
you enter a new number. To do this, you set two breakpoints, one at 
each READ procedure call that reads a number from the terminal. 
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3. The GO command starts the execution of the program. The debugger 
tells you where in the program execution begins. 

4. When the first READ procedure call is reached, the debugger interrupts 
the program's execution and prompts you to enter a com.mand. 

5. You examine the variable Total. Its value is zero, as expected at this 
point. 

6. The GO command continues the execution of the program, which 
prompts for a number. The program's response to the number you 
enter is correct. 

7. The debugger reaches the breakpoint at the second READ procedure 
call. 

8. You examine the variable Total. Its value is 15, not 0 as it should be. 
You realize that the value of Total needs to be reset to 0 before a new 
number is read. 

9. The DEPOSIT command replaces the contents of Total with 0. This 
deposit allows the program to return a correct result the next time the 
loop is executed. 

10. The GO command continues program execution. The result is correct. 

11. When you enter a 0 to the prompt, the program exits. The debugger 
displays a message indicating the termination status. 

12. The EXIT command terminates the debugging session. 

You can now correct the program so that it initializes the variable Total 

correctly. 
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$ RUN SUM 


o 


VAX DEBUG Version 4.X 

y,DEBUG- 1-INITIAL, language is PASCAL, module set to 'SUM' 

DBG>SET BREAK ‘/.LINE 9 © 

DBG>SET BREAK ‘/.LINE 19 
DBG>G0 ® 

break at SUM\7.LINE 9 O 

9: READ (Highest); 

DBG>EXAMINE TOTAL © 

SUMXTOTAL: 0 
DBG>GO © 

Enter an integer; type 0 to quit : 5 
The sum of integers from 1 to 5 is 15 
break at SUM\7.LINE 19 

19: READ (Highest); 

DBG>EXAMINE TOTAL O 

SUMXTOTAL: 15 

DBG>DEPOSIT T0TAL=O © 

DBG>G0 © 

Enter an integer; type 0 to quit : 4 
The sum of integers from 1 to 4 is 10 
break at SUM\y,LINE 19 

19: READ (Highest); 

DBG>G0 

Enter an integer; type 0 to quit : 0 0 

y.DEBUG-I-EXITSTATUS. is ' ‘/.SYSTEM-S- NORMAL. normal successful completion' 
DBG>EXIT © 

$ 
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Chapter 5 

Introduction 


VAX PASCAL is an extended implementation of the PASCAL language 
that has been developed for use under the VAX/VMS operating system. It 
includes all the standard language elements plus the following extensions: 

• UNSIGNED data type 

• Double- and quadruple-precision real data types 

• VARYING OF CHAR structured data type for items that can accept 
character strings of varying lengths 

• Exponentiation operator 

• Initialization of variables in a VAR section 

• OTHERWISE clause in the CASE statement 

• Extended parameter specifications 

• Extended input and output capabilities, including support for relative 
and indexed file organizations 

• Independent compilation 

• Attributes that modify data items and the names of procedures, func¬ 
tions, programs, and modules 

This chapter presents an overview of PASCAL, including some VAX 
extensions, and illustrates the structure of a PASCAL program. It also 
describes PASCAL'S lexical elements—the character set, reserved words, 
identifiers, and special symbols. The last section of this chapter explains 
how to document a program using comments. 
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5.1 Overview of VAX PASCAL 


This section presents a brief overview of concepts you must understand 
to use VAX PASCAL effectively. It discusses data typing, defining and 
declaring data items and routines, and the general structure of a PASCAL 
program. This section also describes routines, scope of identifiers, sepa¬ 
rately compilable units of code, and attributes on data items, routines, and 
compilation units. 


5.1.1 Data Types 

Every PASCAL data item is associated with a particular data type. A 
data type is a set of values which share certain characteristics. A data 
type determines both the range of values a data item can assume and the 
operations that can be performed on it. In addition, the type determines 
the storage space required for all of the data item's possible values. 

PASCAL provides identifiers for many predefined types. Thus, a pro¬ 
gram's operations can involve integers, real numbers. Boolean and 
character data, records, arrays, character strings, sets, files, and point¬ 
ers to dynamic variables. VAX PASCAL includes another predefined type, 
which you can use to represent large unsigned integers. PASCAL also 
allows you to create your own types by defining an identifier of your 
choice to represent a range of values; a user-defined type is also associated 
with a set of operators and a storage requirement. 

The type of a constant is the type of its corresponding value. The type 
of a variable is the set of values the variable can assume. The type of a 
function result is the type of the value returned by the function (called the 
result type). 

In PASCAL, types are associated not only with data items but also with 
expressions. You can use arithmetic, relational, logical, string, and set 
operators to form PASCAL expressions. Arithmetic operations produce 
integer, unsigned, or real-number values. Relational and logical operations 
yield Boolean results. String operations manipulate strings of characters. 
Set operations form the union, intersection, and differences of two sets. 

VAX PASCAL data types are more fully described in Chapter 6, 

Data Types. 
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5.1.2 Definitions and Declarations 

PASCAL requires that you define every symbolic constant and user- 
created type and that you declare every label, variable, procedure, and 
function used in a program. You define and declare such data in the 
declaration section of the program, which can include LABEL, CONST, 
TYPE, VAR, VALUE, PROCEDURE, and FUNCTION sections. All of 
these sections except LABEL introduce identifiers and indicate what they 
represent; a LABEL section declares numeric or symbolic labels that 
correspond to executable statements accessed by GOTO statements. 

VAX PASCAL definitions and declarations are fully described in 
Chapter 8, The Declaration Section. 


5.1.3 Executable Statements 

The executable section of a PASCAL program contains the statements 
that perform the program's actions. The executable section is delimited 
by the words BEGIN and END. Between BEGIN and END are conditional 
and repetitive statements, statements that assign values to variables and 
function identifiers, and statements that control program execution. 

VAX PASCAL statements are fully described in Chapter 9, Statements. 


5.1.4 Routines 

PASCAL allows you to group definitions, declarations, and executable 
statements into routines. You can use routines as a convenient way to 
organize a program by isolating the individual tasks that the program is to 
accomplish. 

PASCAL has two kinds of routines—procedures and functions. 
Procedures are usually written to perform a series of actions. They are 
called by an executable statement known as a procedure call. Functions 
are written to compute and return a value; they are called when a function 
designator appears within an expression. PASCAL supplies many prede¬ 
clared routines that perform frequently used operations, such as input and 
output. 
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Normally, a routine consists of a heading and a block, which you supply 
in the routine's declaration. The heading provides the routine's name, 
usually a list of formal parameters that declare the external data for the 
routine, and, in the case of functions, the type of the function result. The 
routine block consists of an optional declaration section and an executable 
section. The purpose of a declaration section in a routine is to declare data 
items that are local to the routine (that is, data items that are unavailable 
outside the routine). 

VAX PASCAL routines are fully described in Chapters 10, Procedures and 
Functions, and 11, Predeclared Routines. 


5.1.5 Scope of Identifiers 

PASCAL is a block-structured language: it allows you to nest routine 
blocks not only within the main program but also within other routines. 
Each routine can have its own local definitions and declarations; it can 
even redeclare an identifier that has been declared in an outer block. 

A routine declared at an inner level has access to the declarations and 
definitions made in all the blocks that enclose it. 

The part of the program in which you have access to an identifier is 
called the scope of the identifier. Specifically, the scope of an identifier 
is the block in which it is declared. Since blocks can be nested, the 
scope of a particular identifier can include blocks at lower levels in the 
program hierarchy. Outside its scope, an identifier has either no meaning 
or a different meaning. You must therefore keep track of the scope of 
identifiers, especially if you plan to use the same name for several data 
items. 

Scope is discussed in Section 13.2. 
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5.1.6 Compilation Units 

VAX PASCAL uses the term "compilation unit" to denote either a program 
or a module, each of which can be compiled as a separate unit (unlike a 
routine, which can only be compiled within the context of a program or 
module). A program consists of a heading and a block, just as a routine 
does. A VAX PASCAL module consists of a heading followed only by a 
declaration section; it cannot contain executable statements. The heading 
contains the name of the program or module and, possibly, a list of 
identifiers that indicate any external files used. The data items declared 
in a compilation unit are available at all levels of the compilation unit, 
including nested routines, and are also available to subsequently compiled 
programs and modules, which can "inherit" these declarations. 

VAX PASCAL compilation units are discussed in Section 13.1. 


5.1.7 Attributes 

The VAX/VMS operating system controls how a VAX PASCAL program 
is compiled, linked, and executed. The defaults provided by the various 
components of VAX/VMS are sufficient for most applications; however, 
for advanced applications, such as systems programming, you may need to 
change such factors as the allocation size, addressing boundaries, and form 
of storage occupied by variables; the techniques used by the VAX PASCAL 
compiler to compile your program; and the sharing of data declarations 
among compilation units. By including a class of language extensions 
known as attributes, VAX PASCAL allows you to change many of the 
properties of a program that are normally determined by VAX/VMS. 

The syntax for specifying attributes is given throughout this manual in 
the sections describing type definitions, variable declarations, and routine, 
program, and module headings. Explanations, rules, and defaults for all 
the attributes are provided in Chapter 14, Attributes. 


5.1.8 Structure of a PASCAL Program 

Figure 5-1 illustrates some of the typical parts of a PASCAL program. 
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Figure 5-1: Structure of a PASCAL Program 


PROGRAM Calculator (INPUT. OUTPUT); 


TYPE 

Yes.Nc = (Yes. No); 


VAR 

Subtotal. Operand : REAL; 
Equation : BOOLEAN; 
Operator : CHAR; 

Answer : Yes_No; 
PROCEDURE Instructions; 


BEGIN 

WRITELN ('This program adds, subtracts, multiplies, and'); 
WRITELN ('divides real numbers. Enter a number in response'); 

WRITELN ('to the Operand: prompt and enter an operator - '); 

WRITELN ('+. *. /. or = - in response to the Operator:'); 

WRITELN ('prompt. The program keeps a running subtotal'); 
WRITELN ('until you enter an equal sign (=) in response to'); 
WRITELN ('the Operator: prompt. You can then exit from'); 
WRITELN ('the progrsun or begin a new set of calculations.'); 
END; (* end of procedure Instructions *) 


BEGIN 

WRITE ('Do you need instructions? Type yes or no.'); 
READLN (Answer); 

IF Answer = Yes 
THEN 

Instructions; 
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REPEAT 

Equation := FALSE; 

Subtotal := 0; 

WRITE ('Operand:'); 

READLN (Subtotal); 

WHILE (NOT Equation) DO 
BEGIN 

WRITE ('Operator:'); 

READLN (Operator); 

IF (Operator = '=') 

THEN 

BEGIN 

Equation := TRUE; 

WRITELN ('The answer is ', Subtotal); 

END 

ELSE 

BEGIN 

WRITE ('Operand:'); 

READLN (Operand); 

CASE Operator OF 

' + ' : Subtotal := Subtotal + Oper 2 uid; 

'-' : Subtotal := Subtotal - Operemd; 

'*' : Subtotal := Subtotal * Operand; 

'/' : Subtotal := Subtotal / Operand; 

END; 

WRITELN ('The subtotal is '. Subtotal); 

END; 

END; 

WRITE ('Any more calculations? Type yes or no.'); 
READLN (Answer); 

UNTIL Answer = No; 

END. 


5.2 Lexical Elements 

A PASCAL program is composed entirely of lexical elements. These 
elements are individual symbols, such as arithmetic operators, or they 
may be words that have special meanings in PASCAL. The basic unit of 
any lexical element is a character, which must be a member of the ASCII 
character set, as described in Section 5.2.1. Some characters are special 
symbols that are used in PASCAL as statement delimiters, operators, 
and elements of the language syntax. The special symbols used in VAX 
PASCAL are presented in Section 5.2.2. 
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The words used in a PASCAL program are combinations of alphabetic 
and numeric characters and occasionally a dollar sign ($), an underscore 
(_), or a percent sign (%). Some words are reserved for the names of 
executable statements, operations, and predefined data structures. The 
words that are reserved in VAX PASCAL are listed in Section 5.2.3. 

Other words in a PASCAL program are identifiers. Predeclared identifiers 
represent routines and data types provided by VAX PASCAL. Other 
identifiers are created by the user to name programs, symbolic constants, 
variables, and any necessary program elements that have not already been 
named. Section 5.2.4 explains how to use both kinds of identifiers in a 
program. 


5.2.1 Character Set 

VAX PASCAL uses the extended American Standard Code for Information 
Interchange (ASCII) character set (see Appendix A, ASCII Character 
Set). This extended ASCII character set contains 256 characters, each 
of which corresponds to a numeric value. The characters fall into the 
following categories: 

• The upper- and lowercase letters A through Z and a through z 

• The numbers 0 through 9 

• Special characters, such as the ampersand (&), question mark (?), and 
equal sign ( = ) 

• Nonprinting characters, such as the space, tab, line feed, carriage 
return, bell, and form feed (use of these characters may improve 
legibility of your programs) 

• Extended, unspecified characters with numeric codes from 128 to 255 

The VAX PASCAL compiler does not distinguish between upper- and 
lowercase characters except when they appear inside apostrophes. For 
example, the word PROGRAM has the same meaning when written as 
any of the following: 

PROGRAM 

PRogrAm 

program 
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The characters below, however, represent different values: 

•b' 

'B' 

Similarly, the following two phrases represent different values: 

•BREAD AND ROSES' 

•Bread and Roses' 


5.2.2 Special Symbols 

Special symbols represent delimiters, operators, and other syntactic ele¬ 
ments. VAX PASCAL'S special symbols are listed in Table 5-1. Note that 
in symbols composed of more than one character, the characters cannot be 
separated by spaces. 

Table 5-1: Special Symbols 


Name 

Symbol 

Name 

Symbol 

Apostrophe 

' 

Less than or equal 

<= 

Assignment operator 

:= 

Minus sign 

- 

Brackets 

[ 1 or (. .) 

Multiplication 

* 

Colon 


Not equal 

<> 

Comma 

j 

Parentheses 

( ) 

Comments 

(* *) or 1 } 

Percent 

% 

Division 

/ 

Period 


Equal 

- 

Plus sign 

+ 

Exponentiation 


Pointer 

or % 

Greater than 

> 

Semicolon 

; 

Greater than or equal 


Subrange operator 


Less than 

< 

Type cast operator 
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5.2.3 Reserved Words 


In the PASCAL standard, the words in Table 5-2 are reserved for the 
names of statements, data types, and operators. This manual shows these 
words in uppercase letters. 


Table 5-2: Standard Reserved Words 


AND 

END 

ARRAY 

FILE 

BEGIN 

FOR 

CASE 

FUNCTION 

CONST 

GOTO 

DIV 

IF 

DO 

IN 

DOWNTO 

LABEL 

ELSE 

MOD 


NOT 

SET 

OF 

THEN 

OR 

TO 

PACKED 

TYPE 

PROCEDURE 

UNTIL 

PROGRAM 

VAR 

RECORD 

WHILE 

REPEAT 

WITH 


You can use reserved words in your program only in the contexts for 
which they are defined. You cannot redefine a reserved word for use as 
an identifier. 

The nonstandard words listed in Table 5-3 are reserved for VAX PASCAL 
extensions. If you wish, you may redeclare those words that do not 
contain a percent sign (%); however, any extension using those words 
becomes unavailable within the block in which the word was redeclared. 
Nonstandard words beginning with the percent sign may not be redeclared 
as identifiers because they contain a special symbol. This manual shows 
nonstandard reserved words in uppercase letters. 
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Table 5-3: Nonstandard Reserved Words 


^rDESCR 

9rDICTI0NARY 

DIMMED 

9rINCLUDE 

^rREF 

9rSTDESCR 


MODULE 

OTHERWISE 

REM 

VALUE 

VARYING 


5.2.4 Identifiers 


In PASCAL, identifiers are used to name programs, modules, symbolic 
constants, data types, variables, procedures, functions, and program 
sections. An identifier is a combination of letters, digits, dollar signs ($), 
and underscores (_), that conforms to the following restrictions: 

• An identifier cannot start with a digit. 

• An identifier cannot contain any spaces or special symbols. 

• The first 31 characters of an identifier must denote a unique name 
within the block in which the identifier is declared. 

In VAX PASCAL, the length of an identifer may be as long as 31 char¬ 
acters; a warning message results from every occurrence of an identifier 
that exceeds 31 characters. The VAX PASCAL compiler scans the first 31 
characters for uniqueness. The following examples show valid and invalid 
identifiers: 


Valid 

F0R2N8 

MAX.WORDS 

UPTO 

SYS$CREMBX 
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Invalid 


4AWHILE (starts with a digit) 

UPATO (contains an amperseind) 

YEAR_END_86_MASTER_FILE_T0TAL_DISC0UNT 

Although VAX PASCAL allows the dollar sign ($) in identifiers, this 
character has a special meaning to the VAX/VMS operating system in 
some contexts. You should restrict the use of the dollar sign to identifiers 
representing VAX/VMS symbolic names. 


5.2.4.1 Predeclared Identifiers 

VAX PASCAL predeclares the identifiers listed in Table 5-4 as the names 
of procedures, functions, data types, symbolic constants, and file variables. 
Predeclared identifiers appear in uppercase letters throughout this manual. 


Table 5-4: Predeclared Identifiers 


ABS 

ADD_INTERLOCKED 

ADDRESS 

ARCTAN 

ARGUMENT 

ARGUMENT_LIST_LENGTH 


FIND_NONMEMBER 

GET 

HALT 

HEX 

lADDRESS 

INDEX 


BIN INPUT 

BITNEXT INT 


RESETK 

REVERT 

REWRITE 

ROUND 

SET_INTERLOCKED 

SIN 

SINGLE 

SIZE 


BIT_OFFSET 

BITSIZE 

BOOLEAN 

BYTE_OFFSET 

CARD 


INTEGER 

LENGTH 

LINELIMIT 

LN 

LOCATE 


SNGL 

SQR 

SQRT 

STATUS 

STATUSV 


CHAR 

LOWER 

SUBSTR 

CHR 

MAX 

SUCC 

CLEAR^NTERLOCKED 

MAXINT 

TEXT 

CLOCK 

MIN 

TIME 

CLOSE 

NEW 

TRUE 

COS 

NEXT 

TRUNC 

CREATE_DIRECTORY 

NIL 

TRUNCATE 

DATE 

OCT 

UAND 

DBLE 

ODD 

UDEC 

DEC 

OPEN 

UFB 
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DELETE 

ORD 

UINT 

DELETE_FILE 

OUTPUT 

UNDEFINED 

DISPOSE 

PACK 

UNLOCK 

DOUBLE 

PAD 

UNOT 

EOF 

PAGE 

UNPACK 

EOLN 

PRED 

UNSIGNED 

ESTABLISH 

PRESENT 

UOR 

EXP 

PUT 

UPDATE 

EXPO 

QUAD 

UPPER 

EXTEND 

QUADRUPLE 

UROUND 

FALSE 

READ 

UTRUNC 

FIND 

READLN 

UXOR 

FIND_FIRST_BIT_CLEAR 

READY 

WRITE 

FIND_FIRST__BIT_SET 

REAL 

WRITELN 

FINDK 

RENAME_FILE 

WRITEV 

FIND_MEMBER 

RESET 

XOR 



ZERO 


You can redefine a predeclared identifier to denote some other item. 

Once you do so, however, you can no longer use that identifier for its 
usual purpose within the block in which it is redefined. For example, the 
predeclared identifier READ denotes the READ procedure, which performs 
input operations. If you use the word "read" to denote something else, 
perhaps a variable, you cannot use the READ procedure within the same 
block. You should therefore avoid redefining predeclared identifiers 
because you could lose access to useful language features. 


5.2.4.2 User Identifiers 

User identifiers are the names of programs, modules, symbolic con¬ 
stants, symbolic labels, variables, procedures, functions, program sections, 
and user-defined types. User identifiers represent significant data struc¬ 
tures, values, and actions that are not represented by a reserved word, 
predeclared identifier, or special symbol. 
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5.3 Comments 


In addition to data declarations and executable statements, a PASCAL 
program can contain comments—words and phrases that record important 
information about the program. When processing a program, the compiler 
ignores the text of a comment; therefore, a comment can contain any 
ASCII character (except a nonprinting control character) and can appear 
anywhere a space is legal. 

To signify a comment, you can either enclose the text in braces or enclose 
it with a parenthesis/asterisk character pair. For example: 

{ This is a comment. > 

(♦ This is a comment, too. *) 

In VAX PASCAL, the special symbols used to delimit comments are 
equivalent. Thus, once you have begun a comment with an opening 
delimiter, the first occurrence of a closing delimiter of either kind ends the 
comment. For example: 

< The delimiters of this comment do not match. *) 

(♦ PASCAL allows you to mix delimiters in this way. > 

However, VAX PASCAL does not allow you to nest comments. That is, 
you cannot include one set of comments within another. For example: 

(* Comments cannot be nested { contained inside more thzin one 
set of comment delimiters > within your program. *) 

The above example would result in a compile-time error. 
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Chapter 6 

Data Types 


Every PASCAL data item is associated with a data type. Usually indicated 
by a type identifier, a data type determines both the range of values a 
data item can assume and the operations that can be performed on it. In 
addition, the type determines the storage space required for all of the data 
item's possible values. 

This chapter provides information on: 

• The ordinal types—INTEGER, UNSIGNED, CHAR, BOOLEAN, 
enumerated and subrange 

• The real types—REAL, SINGLE, DOUBLE, and QUADRUPLE 

• The structured types—RECORD, ARRAY, VARYING OF CHAR, SET, 
and FILE 

• The pointer type 

• The rules of type compatibility, which determine the operations and 
assignments you can perform with data items of different types 

VAX PASCAL has four categories of data types: ordinal, real, structured, 
and pointer. Ordinal and real types, which are often referred to collec¬ 
tively as the scalar or simple types, are the fundamental types that serve 
as building blocks for the structured types. The pointer type allows you to 
refer to dynamically allocated variables. 

VAX PASCAL supplies predefined ordinal types for integer, character, and 
Boolean data. Two predefined types denote integer values—INTEGER, 
and UNSIGNED. The type INTEGER represents signed integer values; the 
type UNSIGNED represents nonnegative values of the VAX-specific logical 
unsigned type. (Refer to the VAX/VMS Introduction to System Routines for 
a full description of this type.) The type CHAR signifies individual 
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alphabetic, numeric, and special characters. The type BOOLEAN consists 
of the values FALSE and TRUE. 

In addition, PASCAL allows you to define your own ordinal types in one 
of two ways: 

• By enumerating each value of the type (called an enumerated type) 

• By defining the type as a subrange of another ordinal type (called a 
subrange type) 

Three predefined real types provide explicit single-, double-, and 
quadruple-precision real numbers. 

VAX PASCAL has five structured types: RECORD, ARRAY, VARYING 
OF CHAR, SET, and FILE. Structured types allow you to process groups 
ot ordinal, real, structured, and pointer data items. For example, you can 
have a varying-length string of characters, a file of records, or an array of 
pointers. 

The pointer type consists of the storage addresses of dynamic variables 
and the constant identifier NIL. 

The following figure summarizes the various data types available for VAX 
PASCAL. 
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Figure 6—1: Data Types 


data types 




6.1 Ordinal Types 

The values in an ordinal type have a one-to-one correspondence with 
the set of positive integers. These values are ordered so that each has a 
unique ordinal value indicating its position in a list of all the values of 
that type. The ordinal types are discussed individually in Sections 6.1.1 
through 6.1.6. 
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Three predeclared functions, PRED, SUCC, and ORD operate only on 
expressions of an ordinal type; they return information about the type's 
ordered sequence of values. The PRED function finds the predecessor of 
any value of an ordinal type (except the smallest). Similarly, the SUCC 
function finds the successor of any value of an ordinal type (except the 
largest). The ORD function finds the ordinal value of an ordinal type 
and returns it as an integer. Chapter 11, Predeclared Routines, provides 
further information on these functions. 


6.1.1 INTEGER Type 


The INTEGER data type denotes positive and negative integer values 
ranging from -2^^+l through 2^^-l. This range contains numbers from 
-2,147,483,647 through 2,147,483,647. The largest possible value of the 
INTEGER type is known by the predefined constant identifier MAXINT. 

You indicate a decimal integer by using decimal digits. No commas or 
decimal points are allowed. The following are valid decimal integers in 
PASCAL: 


17 

0 


89324 



VAX PASCAL also allows you to specify integers in binary, octal, and 
hexadecimal notations. You can use integers written in these nota¬ 
tions anywhere that decimal integers are permitted (except as labels; 
see Section 8.1). To specify an integer in binary, octal, or hexadecimal no¬ 
tation, place a percent sign (%) and a letter in front of a number enclosed 
in apostrophes. The appropriate letters, which may be either upper- or 
lowercase, are B (binary notation), O (octal notation), and X (hexadecimal 
notation). Inside the apostrophes, you can include spaces and tabs to 
make the notation easy to read. Note that regardless of which notation 
you use, the integer value specified within the quotes may not be greater 
than MAXINT nor less than 0. For example: 

%b'1000 0011' 

7,0'7712' 

%x’DEC' 

Since the integer value specified always creates a non-negative constant, 
the sign bit cannot be set (or cleared) by setting (or clearing) the high 
order bit. To specify a signed integer, precede the percent sign (%) with 
the desired unary plus operator ( + ) or the unary minus operator (-). 

This allows you to specify a constant integer expression whose value is 
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between -MAXINT and MAXINT, inclusively. For example, to specify 
-MAXINT, the following notation can be used: 

-y,X'7FFF FFFF' 

The use of negative integers in complex expressions may not produce the 
results you expect; see Section 7.2.1 for more explanation. 

The input operations described in Chapter 12, Input and Output 
Processing, allow you to supply a leading plus or minus sign with integer 
values. Output operations, also described in Chapter 12, Input and Output 
Processing, automatically supply leading minus signs with negative integer 
values. 


6.1.2 UNSIGNED Type 

The UNSIGNED data type denotes nonnegative integer values from 0 
through 2^^-l. The largest possible value of the UNSIGNED data type is 
4,294,967,295, which is more than twice as large as the value of MAXINT. 
Note that UNSIGNED is a machine-dependent type intended for use in 
systems programming, not for every application involving nonnegative 
integers. 

When a VAX PASCAL program contains an integer constant greater than 
MAXINT, the constant is treated as being of type UNSIGNED. Unsigned 
integers can be written in decimal, binary, octal, and hexadecimal nota 
tions (see Section 6.1.1 for notation rules). For example, to indicate the 
value MAXINT+1 and the largest unsigned value respectively, you could 
specify the following: 

y.x' 80 oo 0000 ’ 

•/.X'FFFF FFFF' 

Note, however, that integer expressions whose constant value is not 
greater than MAXINT and not less then -MAXINT are always treated 
as being of type INTEGER. To force an integer constant to become 
UNSIGNED rather than INTEGER, use the UINT predeclared function 
(see Section 11.9.10). For example, to force MAXINT and -MAXINT to be 
treated as the UNSIGNED type, you should specify the following: 

UINT( y,X'7FFF FFFF'); 

UINT(-y.X'7FFF FFFF'); 
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6.1.3 CHAR Type 


The CHAR data type consists of single character values as listed in 
Appendix A, ASCII Character Set. To specify a character constant, enclose 
a printable ASCII character in apostrophes. Note that the apostrophe 
character itself must be typed twice within apostrophes. Each of the 
following is a valid character constant: 

•A' 

•z' 

'O' (This is the character 0, not the integer value 0) 

'''' (The apostrophe character) 

' ?' 

You can write character strings such as 'HELLO' and '♦*♦*', but you must 
represent them as packed arrays of characters (see Section 6.3.2.2) or 
varying-length character strings (see Section 6.3.3). 

When you use the ORD function on an expression of type CHAR, the 
result is the ordinal value of the character in the ASCII character set. For 
example, if the variable Q_Char has the value 'Q', then the expression 

ORD (Q.Char) 

returns the integer 81, which is the ordinal value of uppercase Q in the 
ASCII character set. 

The order of the characters in the ASCII character set may not be what 
you expect if you are not familiar with the set. Although the numeric 
characters are in numeric order and the alphabetic characters are in 
alphabetic order, all uppercase characters have lower ordinal values than 
all lowercase characters. For example: 

ORD CO') is less than ORD ('9') and 
ORD ('A') is less than ORD ('Z') but 
ORD CZ') is less than ORD ('a') 

You can specify a nonprinting character such as a control character by 
writing an empty string, ", followed immediately by the ordinal value 
of the character in the ASCII character set, enclosed in parentheses. For 
example: 

"(7) 


This constant represents the control character that corresponds to the bell 
character. 


6-6 


Data Types 





6.1.4 BOOLEAN Type 


The elements of the BOOLEAN data type are the two predeclared iden¬ 
tifiers TRUE and FALSE ordered so that FALSE is less than TRUE. Thus, 
the ORD function applied to the Boolean value FALSE returns the integer 
0; ORD (TRUE) returns the integer 1. 

Boolean values are the result of testing relationships for truth or validity. 
Relational operators operate on the ordinal, real, string, or set expressions, 
and produce a Boolean result. 


6.1.5 Enumerated Type 

An enumerated type is an ordered set of constant values denoted by iden¬ 
tifiers. The enumerated type syntax requires that all constant identifiers 
of that type be listed in order and enclosed in parentheses. It has the 
following form: 

({identifier},...) 

identifier 

A constant value of the specified type. 

For example, you can define the following type: 

TYPE 

Yes No = (Yes. No); 

Here, the user-defined type Yes No contains the two values Yes and No. 

The values of an enumerated type follow a left-to-right order such that 
any identifier in the list has an ordinal value greater than the ordinal 
values of all identifiers to its left (that is, which precede it), and less than 
the ordinal values of all identifiers to its right (that is, which follow it). 
Thus, given: 

(Spring, Simmer, Fall, Winter) 

Spring and summer are less than Fall because they precede Fall in the list 
of constant values. Winter is greater than Fall because it follows Fall. 

The definition of an enumerated type associates an ordinal value with 
each identifier. The ordinal value of the first identifier is 0; the ordinal 
value of the second identifier is 1, and so forth. You can apply the ORD 
function to expressions of enumerated types. Using the example above. 
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the expression ORD (Summer) is legal. Note that its result is 1 because 
Summer is the second value listed. 

An identifier in an enumerated type cannot be defined for any other 
purpose. For example, the following enumerated type: 

(Fall, Winter, Spring) 

cannot be defined in the same block as the previous type, because the 
identifiers Spring, Fall, and Winter would not be unique. Since the result 
of ORD (Fall) can be either 2 or 0, it is in fact undefined. 

A maximum of 65,535 identifiers can be listed in an enumerated type. 

Some examples of enumerated types are: 

TYPE 

Drinks = (Wine, Beer, Vodka, Rum); 

Activities = (Swim, Run, Dance); 

Cookies = (Oatmeal, Sugar, Peanut Butter, Choc_Chip); 


6.1.6 Subrange Type 

A subrange type specifies a limited portion of another ordinal type (called 
the base type) for use as a distinct type. The subrange syntax indicates the 
lower and upper limits of the type, and has the following form: 

lower-bound..upper-bound 

lovs^er-bound 

A constant expression that establishes the lower limit of the subrange. 

upper-bound 

A constant expression that establishes the upper limit of the subrange. 

The subrange type is defined only for the values between and including 
the lower and upper bounds. The value of the upper bound must be 
greater than or equal to the value of the lower bound. The subrange 
symbol (..) separates the bounds of the subrange. 

The base type can be any enumerated or predefined ordinal type. The 
values in the subrange type are in the same order as they are in the base 
type. For example, the result of the ORD function applied to a value of 
a subrange type is the ordinal value that is associated with the relative 
position of the value in the base type, not in the subrange type. 
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You can use a subrange type anywhere in a program where its base type 
is legal. A value of a subrange type is converted to a value of its base 
type before it is used in an operation. All rules that govern the operations 
performed on an ordinal type pertain to subranges of that type. 

The use of subrange types can make a program clearer. For example, you 
can limit the legal values for the days of the year by defining the subrange 
type 1..365. 

If you enable subrange checking at compile time, the system generates a 
run-time error for the assignment of an out-of-range value to a subrange 
variable. In the above example, such an error occurs when an integer 
value less than 1 or greater than 365 is assigned to a variable of the 
subrange type. If you do not enable subrange checking, the compiler does 
not detect invalid assignments to subrange variables. See Section 14.5, 
and the VAX PASCAL User's Guide for more information about subrange 
checking. 

Examples of subrange types and some possible uses for them are as 


follows: 



•O' .. 

•9' 

(* 

single-digit numbers *) 

•A' .. 

•M' 

(* 

the first half of the alphabet *) 

1. .31 

i* 

the days of a month *) 

Jan. . 

Jun 



May. . 

Dec 

i* 

given an enumerated type 
listing the months in order *) 


6.2 Real Types 

VAX PASCAL'S predefined real data types allow you to express a wide 
range of real-number values with different degrees of precision. The 
identifiers REAL, SINGLE, DOUBLE, and QUADRUPLE denote the real 
types. REAL and SINGLE are synonymous; both denote single-precision 
real values. The type DOUBLE denotes double-precision real values. 

The type QUADRUPLE denotes quadruple-precision real values. In this 
manual, the term "real type" refers to the REAL, SINGLE, DOUBLE, and 
QUADRUPLE types collectively; the term "REAL type" refers to both the 
REAL and SINGLE types. 


Data Types 6-9 







DOUBLE exists in two formats, G_floating and D_floating, which al¬ 
low you to choose whether double-precision values will express a very 
wide range (G_iloating) or a more limited range with somewhat greater 
precision (D_floating). You should not use both formats of DOUBLE in 
the same compilation unit; Section 14.6 describes how you can specify 
the double-precision format for a compilation unit by using an attribute. 
Chapter 3, Compiling, Linking, and Executing a PASCAL Program de¬ 
scribes how to use the /G_floating qualifier to specify which DOUBLE 
format. 

Table 6-1 compares the range of values and the degree of precision for 
the real types. 


Table 6-1: Range and Precision of Real Types 




D_FLOATING 

DOUBLE 

G_FLOATING 

DOUBLE 

QUADRUPLE 

Smallest 

negative 

value 

-0.29E-38 

-0.29D-38 

-0.56D-308 

-0.84Q-4932 

Largest 

negative 

value 

-1.70E38 

-1.70D38 

-0.90D308 

-0.59Q4932 

Smallest 

positive 

value 

0.29E-38 

0.29D-38 

0.56D-308 

0.84Q-4932 

Largest 

positive 

value 

1.70E38 

1.70D38 

0.90D308 

0.59Q4932 

Precision 

1 part in 

7 decimal 
digits 

1 part in 

= 

16 decimal 
digits 

1 part in 

= 

15 decimal 
digits 

1 part in 

33 decimal 
digits 


Real numbers can be written in either decimal or exponential notation. 
To write real numbers in decimal notation, you use the set of decimal 
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digits and a decimal point. At least one digit must appear on either side of 
the decimal point. That is, a zero must always precede the decimal point 
of a real number between 1 and 0, and a zero must follow the decimal 
point of a whole number. The following are valid real numbers in decimal 
notation: 


2.4 

893.2497 
8.0 
0.0 

Some numbers are too large or too small to be written conveniently in 
the above format; therefore, PASCAL provides exponential notation as a 
second way of writing real numbers. The parts of a real number written 
in exponential notation are: a real number or an integer, an upper- or 
lowercase letter to denote the type of precision, and an integer exponent 
with its minus sign or optional plus sign. For example: 

2.3E2 

lO.OE-l 

9.14169E0 

The letter E after the value means that the value is to be multiplied by 
a power of 10 and indicates a single-precision real number. The integer 
following the E tells which power of 10 is to be used and can be positive 
or negative. Thus, the real number 237.0 can be represented in any of the 
following ways: 

237E0 
2.37E2 
0.000237E+6 
2370E-1 

0.0000000237E10 

To indicate a double-precision real number, you must use exponential 
notation. Replace the letter E with the letter D (upper- or lowercase) to 
indicate the exponent. The following examples illustrate double-precision 
format: 

ODO 

4.371528665D-3 

812d2 

Similarly, the letter Q (upper- or lowercase) in exponential notation 
designates a quadruple-precision value. For example: 

0.11436q3 

3362Q2 

0.11826q-4 
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Exponential notation is also called floating-point format because the 
position of the decimal point "floats" depending on the exponent following 
the letter. 

You can use negative real numbers in decimal and exponential no¬ 
tations. However, a negative real number such as -4.5E+3 is not a 
constant, but is actually an expression consisting of the negation op¬ 
erator (-) and the real number 4.5E+3. The use of negative integers 
in complex expressions may not produce the results you expect; see 
Section 7.2.1 for more explanation. The input operations described in 
Chapter 12, Input and Output Processing allow you to supply a leading 
plus or minus sign with integer values; output operations, also described 
in Chapter 12, Input and Output Processing, automatically supply leading 
minus signs with negative integer values. 


6.3 Structured Types 

In PASCAL, a simple data type (ordinals and reals) represents a single 
value. A structured data type differs from a simple type in that it can 
contain more than one component at a time. Each component can be 
of an ordinal, real, structured, or pointer type. You can either access 
individual components of the type or process the entire structure. 

VAX PASCAL has five structured tvpes, as described in the following 
sections: RECORD, ARRAY, VARYING OF CHAR, SET, and FILE. 

For each structured type except FILE, you express a constant value of 
the type by forming a constructor. An array or record constructor must 
contain one constant value of the appropriate type for each component of 
the structure. You use constructors in the following ways in a PASCAL 
program: 

• In a CONST section to define symbolic constants 

• In a VAR or VALUE section to initialize variables of structured types 

• In an executable section to assign values to variables of structured 
types 

• In an executable section to pass parameters to PASCAL routines 


If you are doing an application where you must be concerned with storage 
space, you can pack an object of any structured type except VARYING OF 
CHAR. Defining structures as PACKED tells the compiler to economize 
storage by storing the structure in as few bits as possible. To create a 
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packed structured type, specify the reserved word PACKED in front of 
the type definition. Keep in mind, however, that a packed object is not 
compatible with an object that is not packed. 


6.3.1 RECORD Type 


A record is a group of components called fields, which may be of different 
types and which may contain one or more data items. The record type 
syntax specifies the name and type of each field, and has the following 
form: 


[[PACKED]] RECORD 

field-list 

END 


where the syntax of a field-list is: 


[{ 


{{field-identifier} , . . . : [lattribute-listH type} variant-clauseH 

variant-clause [[; H 



field-identifier 

The name of a field. Note that you can specify no field identifiers if you 
wish, thus making the field list empty. 

attribute-list 

One or more identifiers that provide additional information about the 
field(s) (see Chapter 14, Attributes). 

type 

The type of the corresponding field(s). A field can be of any type. 

variant-clause 

The variant part of the record (see Section 6.3.1.2). 
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To refer to a field within a record variable, you specify the name of the 
variable and the name of the field, separating them with a period. For 
instance, the field identifiers Team.Wins, Team.Losses, and Team.Percent 
can refer to three fields of a record variable named Team. You can use a 
field anywhere in a program that a variable of the field type is allowed. 

The names of the fields must be unique within a record type, but can be 
repeated in different record types. For instance, you can define the field 
Percent only once within a particular record type. Other record types, 
however, can also have fields called Percent. Because you must use the 
name of the record variable to refer to the field, no ambiguity results if 
fields in different record types have the same name. 

A record type can include fields that are themselves records. In this case, 
the name of the field includes the name of every record within which it is 
nested. For example: 

RECORD 

Part : INTEGER; 

Received ; RECORD 

Month : (Jan, Feb, Mar, Apr, May, Jiin, 

Jul, Aug, Sep, Oct, Nov. Dec); 

Day : 1..31; 

Year : INTEGER; 

END; 

Inventory : INTEGER; 

END; 

If you declare a variable Order of this type, you refer to its fields as 
Order.Part, Order.Received.Month, Order.Received.Day, 
Order.Received.Year, and Order.Inventory. 

In a record constructor, constant values of the appropriate types are listed 
within parentheses in the same order as the corresponding fields appear in 
the record type definition. Constructors for nested records are enclosed in 
nested parentheses. A record constructor is usually preceded by the record 
type identifier. The type identifier is optional in the following cases: 

• When the constructor is used to initialize a record variable 

• When the record constructor is nested inside another constructor 

For example, if the record type in the previous example were named 
Order^Rec, you can write the following constructor for it: 

Order.Rec (213, (Feb. 1. 1968), 7407) 
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The constructor specifies a constant value of the correct type for each field 
in the record and retains the same order as the field list. Note that because 
the record type Received is nested inside type Order_Rec, you need not 
specify the type identifier Received. 

It is also possible to initialize an entire record with the predeclared 
function ZERO. This function initializes each record component to its 
binary zero. See Section 6.3.1.1 for an example. 

Two attributes, KEY and POS, can be applied only to record fields. The 
KEY attribute allows you to designate one or more fields as the key field(s) 
of an indexed file. The POS attribute allows you to position record fields 
relative to the beginning of the record. See Chapter 14, Attributes, and 
the VAX PASCAL User's Guide for more information on these attributes. 


6.3.1.1 Record Type Examples 


1. RECORD 

Year : INTEGER; 

Gross : REAL; 

Net ; REAL; 

Deductions : INTEGER; 

Itemized : BOOLEAN; 

END; 

This example shows a record type with five fields. A possible construc¬ 
tor for this type is: 

(1979, 10000.0, 8000.0, 1500, FALSE) 

2. RECORD 

Person : VARYING[30] OF CHAR; 

Address : RECORD 

Number : INTEGER; 

Street. Town : VARYING[30] OF CHAR; 

Zip : 0..99999; 

END; 

Age . 0..150; 

END; 

This example shows one record nested within another. To write a 
constructor for the record type shown, you must enclose a constructor 
for the record Address within the constructor for the entire record. For 
example: 

('Blaise Pascal', (1623, 'Pensees Street', 

'Clermont Alaska', 91662), 39) 
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3. RECORD 

Weekly_Avg_Temp : REAL; 
Daily_Avg_Temp : RECORD 

Day : CHAR; 

Avg.Temp : REAL; 


This example shows one record nested within another. If you wish, 
you may initialize components of the nested record to binary zero 
value. A possible constructor for this example is: 

(78.3, ZERO) 

This constructor would initialize the nested record components Day 
and Avg_Temp to their binary zero values. 


6.3.1.2 Records with Variants 

A record can include one or more fields or groups of fields called variants, 
which can contain different types or amounts of data at different times 
during program execution. Thus, two variables of the same record type 
can represent different data. To specify a variant, you must include a 
variant clause as the last field in a record type definition. 

CASE [Ttag-identifier : DEattribute-list]] tag-type-identifier OF 

I fcase-label-list : (field-list) ;}. . . 11 
OTHERWISE (field-list) J 

The tag field consists of the elements between the reserved words CASE 
and OF. The tag field is common to all variants in the record type. Its 
data type corresponds to the case label values and determines the current 
variant. As the syntax description illustrates, you can specify the tag field 
in two ways: 

1. tag-identifier : [[attribute-list]] tag-type-identifier 

The tag identifier and tag type identifier define the name and type of 
the tag field. The tag type identifier must denote an ordinal type. You 
refer to the tag field in the same way that you refer to any other field 
in the record—with the record.field-identifier syntax. 
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2. [[attribute-list]] tag-type-identifier 

In the second form, there is no tag identifier you can evaluate to 
determine the current variant; therefore, you must keep track of the 
current variant yourself. The tag type identifier must denote an ordinal 
type. 

tag-identifier 

The name of the tag field. 

attribute-list 

One or more identifiers that provide additional information about the 
variant (see Chapter 14, Attributes). 

tag-type-identifier 

The type identifier for the tag field. 

case-label-list 

One or more constant values of the tag field type. You must enumerate 
one label for each possible value in the tag type. 

field-list 

The names, types, and attributes of one or more fields. At the end of a 
field list, you can specify another variant clause. (See Section 6.3.1 for the 
syntax of a field list; note that the field list can be empty.) 

You can refer only to the fields in the current variant. You may not 
change the variant while a reference exists to any field in the current 
variant. (The conditions that establish a variable reference are listed in 
Section 8.3.) 

You may also include an OTHERWISE clause as the last case label list. 
OTHERWISE is equivalent to a case label list which contains tag values 
(if any) not previously used in the record. The variant labeled with 
OTHERWISE is the current variant when the tag-identifier has a value 
that does not occur in any of the case-label-lists. 
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In this example 

TYPE 

Color * (Red, Yellow, Orange, Green, Blue, Indigo); 

Col_Rec * RECORD 

CASE C : Color OF 

Red, Yellow : (B : BOOLEAN); 

Orange : (C : CHAR); 

OTHERWISE (I : INTEGER); 

END; 

the OTHERWISE clause indicates Green, Blue, and Indigo. For instance, a 
possible constructor is "CoLRec (Blue, 35)". 

The following example shows another application of OTHERWISE: 

Typ.Rec = RECORD 

CASE Int : INTEGER OF 


1 

(R 

REAL); 

2 

(I 

INTEGER); 

OTHERWISE 

(C 

ARRAY [1..2] OF CHAR); 


END; 

This example allows you to use a tag-type-identifier of INTEGER and fully 
enumerate it, which is not possible without the OTHERWISE clause. 

When you specify the tag field using a tag identifier, the current variant 
is the one whose label is equal to the current value of the tag identifier. 
Until you assign a new value to the tag identifier, you cannot refer to a 
field having a different case label. 

The following example shows the use of the tag identifier form: 

RECORD 

Part : 1..9999; 

CASE Onorder : BOOLEAN OF 

TRUE : (0rder_Qu2mtity : INTEGER; 

Price: REAL); 

FALSE ; (Rec.Quantity : INTEGER; 

Cost : REAL); 

END; 

In this example, the last two fields in the record vary depending on 
whether the part is on order. Records for which the value of the tag 
identifier Onorder is TRUE will c6ntain information about the current 
order; those for which it is FALSE, about the previous shipment. 
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The second way of specifying the tag field uses a tag type without a tag 
identifier. A reference to one field identifier causes the corresponding 
variant to become the current one; all other variants become undefined 
immediately. The following example shows the specification of a tag field 
without a tag identifier: 

RECORD 

Patient : Name; 

Birthdate : Date; 

Age : INTEGER; 

CASE Sex OF 

Male : (Beard : BOOLEAN); 

Female : (Births : 1..30); 

END; 

In this example, assume that the tag field Sex is of an enumerated type 
with constant values Male and Female. The last field in this record is 
either the Boolean field Beard, if Male is the variant most recently referred 
to, or the integer subrange Births, if Female is the variant most recently 
referred to. 

You can define a variant only for the last fields in the record. However, 
variant fields can be nested, as in the following example: 

RECORD 

Patient : Name; 

Birthdate : Date; 

Age : INTEGER; 

CASE Parsex : Sex OF 
Male : (); 

Female : (CASE Births : BOOLEAN OF 
FALSE : (); 

TRUE : (Numkids : INTEGER)); 

END; 

This record includes a variant field for each woman based on whether she 
has children. A second variant, which contains the number of children, is 
defined for women who have children. 

A constructor for a record type that contains variants must include values 
for the tag field and the field identifiers in the corresponding variant. You 
must specify a value for the tag field, even if it has no tag identifier, to 
ensure that the correct variant is initialized. For example, consider the 
following record type named Call: 
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RECORD 

Caller : N 2 Line: 

Time : REAL; 

Subj : (Work, Play, Sales, Chat); 

CASE BOOLEAN OF 

TRUE : (Hour : INTEGER); 

FALSE : (); 

END; 

A constructor for this record type might look like this: 

Call ('Washington', 10.30, Chat, TRUE, 12) 

The constructor initializes the tag field with the Boolean value TRUE and 
the field identifier Hour with the integer value 12. Note that the tag field 
is initialized even though it does not have an identifier. 

To initialize this record type with the value FALSE for the tag field, you 
can write the following record constructor: 

Call ('Washington', 10.30, Chat, FALSE) 

This constructor specifies the same values as the previous one for all fields 
except the tag field. The tag field value is now last in the list because the 
FALSE case of the variant specifies no additional fields. 

It is also possible to initialize a variant record to binary zero, using the 
predeclared function ZERO. A possible constructor is: 

Call ('Washington', 10.30, Play, ZERO) 

This constructor causes the tag field and its components to be initialized to 
binary zero. 


6.3.2 ARRAY Type 

An array is a group of components in which all elements have the same 
data type and share a common identifier. An individual element of an 
array is referred to by an integer index (or subscript) that designates the 
element's position or order in the array. 

The definition of an array type specifies its dimensions, the bounds of 
each dimension, and the types of its indexes and components. It has the 
form: 

IPACKEDII ARRAY [{ lattribute-listl] index-type},...] OF 
[[attribute-listl component-type 
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attribute-list 

One or more identifiers that provide additional information about the 
component type (see Chapter 14, Attributes). 

index-type 

The type of the index, which can be any ordinal type. 

component- type 

The type of the array components, which can be any type. 

The indexes of an array must be of an ordinal type. You usually cannot 
specify the type INTEGER as the index type because such an array would 
exceed the available memory space. To use integer values as indexes, 
you must specify an integer subrange. (An exception to this rule is the 
conformant array parameter; see Section 10.3.5.) 

To refer to an array component, specify the name of the array variable, 
followed by an index value enclosed in brackets. For example, if you 
declare a variable Letters of type ARRAY[1..26] OF CHAR, you refer to 
its components as Letters[l], Letters[2], Letters[3], and so on, through 
Letters[26]. 

You can use an array component anywhere in a program that a variable of 
the component type is allowed (except an array of type TEXT). The only 
operation defined for the array as a whole, however, is the assignment 
(:=) operation (see Section 9.2). 

In an array constructor, a constant value of the appropriate type for every 
component is listed within parentheses. To specify the same value for 
consecutive components, you can use a repetition factor of either of the 
two following forms: 

f n OF value 1 
\ REPEAT value j 

The integer n denotes the number of consecutive components that are 
to receive the same value; n must be a constant expression of type 
INTEGER.^ 

REPEAT initializes all remaining components to the same value. 

In both repetition forms, the value specified can be either a signed con¬ 
stant or another constructor of the component type. 

^ In a constructor, the constant n cannot be a constant expression beginning with a parenthesis if the 
value being repeated is of type RECORD or ARRAY. 
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As for records, an array constructor is preceded by the array type identi¬ 
fier, except in the following cases: 

• When the constructor is used to initialize an array variable (in either 
the VAR or VALUE section) 

• When the array constructor is nested inside another constructor 

For example, you can write the following constructor for an ARRAY[1..8]OF 
REAL whose type identifier is Result: 

Result (1.318, 4.2029, 2 OF 3.68, 7.0, REPEAT 9.6445) 

This constructor includes the repetition factor 2 OF 3.68, which specifies 
the value 3.68 for the third and fourth components, and the repetition 
statement REPEAT 9.6445, which specifies the value 9.6445 for the last 
three components. 

It is also possible to initialize an entire array to binary zero by using the 
predeclared function ZERO. See Chapter 11, Predeclared Routines, for 
more information. 


6.3.2.1 Multidimensional Arrays 

An array whose components are themselves arrays is multidimensional 
because it has more than one index. An array can have any number of 
dimensions, and each dimension can have a different index type. For 
example, the following syntax illustrates a two-dimensional array type: 

ARRAY[0..4] OF ARRAY['A'..'D'] OF INTEGER 

You can abbreviate the syntax by specifying all the index types in one pair 
of brackets. For example: 

ARRAYC0..4. 'A'..'D’] OF INTEGER 

To refer to a component of a two-dimensional array, specify the name of 
the array variable followed by two bracketed index values, written in the 
order in which their index types were declared. The first index indicates 
the rows of the array; the second index indicates the columns. For exam¬ 
ple, if you declare a variable Two_D of the array type shown above, you 
can refer to the components as Two_D[0,'A'], Two_D[0,'B'], and so on. 
You can also use the alternative form Two_D[0]['A']. Figure 6-2 represents 
the array variable Two_D. 
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Figure 6-2: Two-Dimensional Array 



TWO_D 

ZK-097-81 


The first component in the first row is Two_D[0/A']. The second compo¬ 
nent in this row is Two_D[0/B']. The first component in the second row 
is Two_D[l/A']. The last component in the last row is Two_D[4/D']. In 
general, element j of row i is Two_D[i,j]. 

If you do not specify a value for the rightmost index of a multidimensional 
array, you are referring to a component of an array type. For example, 
Two_D[0] refers to the entire first row of the array Two_D. This row is 
itself an array with four integer components. 

You can construct arrays of three or more dimensions in a similar fashion. 
For example, suppose you create an enumerated type Chessmen with the 
values (QR,QN,QB,Q,K,KB,KN,KR,P,E). You can then declare a variable 
ChessSD of type ARRAY[1..3, 1..8, QR..KR] OF Chessmen. This array 
specifies a three-dimensional chessboard whose indexes represent the 
levels, ranks, and files of the chessboard. For example, the reference 
Chess3D[l] indicates one level, or a single chessboard. The reference 
Chess3D[l,l,QR] specifies the first level, first square in the upper left 
comer (bottom level, first rank. Queen's Rook file). Figure 6-3 illustrates 
the three levels of this array. 
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Figure 6-3: Three-Dimensional Array 



CHESS3D[3, n, CHESSMEN] 


CHESS3D[2, n, CHESSMEN] 


CHESS3D[1,n,CHESSMEN] 


ZK-098-81 


Just as a multidimensional array is really an array of arrays, so a construc¬ 
tor for a multidimensional array is a constructor whose components are 
constructors. You must include a constant value for each component of 
each array. For example, the syntax ARRAY[0..3, 1..5] OF REAL describes 
a two-dimensional array of real numbers. A constructor for an array of 
this type must consist of four constructors, each having five real values. 
One possible constructor is: 

((1.0,1.1,1.2,1.3,1.4), 2 OF (5 OF 0.0). 

(10.1, 2 OF 11.0, 2 OF 11.D) 
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If you imagine the first index of this array as representing rows and the 
second index as representing columns, then the constructor above is 
filling the columns of the array one row at a time. Figure 6-4 shows the 
assignment of the above constructor to an array variable. 

Figure 6-4: Values Assigned to a Two-Dimensional Array 
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You write a constructor for an array with three or more dimensions in a 
similar way. For example, for the array type 

ARRAY[0..1] OF ARRAY[2..4] OF ARRAY[1..3] OF INTEGER 

you can write the constructor 

(((1,2.3), (20,40,60), (98,99,100)), 

((5.7,9). (25,60.76), (100,200,300))) 

For all but the innermost dimension, the constant values are actually 
written in the form of constructors because the component type of these 
arrays is another array. At the innermost dimension, the constant values 
are integers. Note that you must nest the constructors in the order in 
which the corresponding array types were defined. 

In addition, since multidimensional arrays are simply arrays of arrays, it is 
possible to initialize nested arrays to binary zero by using the predeclared 
function ZERO. For example, using the previous array type, you could 
specify the following constructor: 

(((1,2,3), ZERO, (98,99.100)), ZERO) 
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6.3.2.2 Fixed-Length Character Strings 

In PASCAL, a fixed-length character string is defined as a packed array of 
characters with a lower bound of 1. The length of the string is established 
by the array's upper bound. The following example illustrates a fixed- 
length character-string type: 

PACKED ARRAY[1..20] OF CHAR; 

A variable of this type may contain a string of at most 20 characters. The 
compiler adds blanks to extend a shorter string, but does not truncate a 
longer string. If you specify a string longer than the array's upper bound, 
an error occurs. 

Note—if the upper bound of the array exceeds 65,535, or if the array's 
components are not byte-sized characters, the array is not considered to 
be a character string and cannot be treated as one in a program. 

There are two ways to form a string constructor: 

• Enclose in apostrophes a string of characters of the correct length 

• Enclose individual characters in apostrophes, separate them with 
commas, and enclose the list of characters in parentheses 

With either method, you may provide no more than one character con¬ 
stant for every component of the packed array. If the string does not 
have enough characters, the compiler will add spaces to extend it. The 
following are valid constructors for a packed array of 10 characters: 

•JEFFERSON ' 

(’J','E','F','F'.'E'.'R','S','O'.'N'.' ') 

('JEFF') 

Some members of the ASCII character set, including the bell, the 
backspace, and the carriage return, are nonprinting characters. In VAX 
PASCAL, you can include nonprinting characters within a character string 
by using the following syntax: 

’printing-string’ ({value}, . . .) [['printing-string']] 

printing-string 

A character-string constant. 

value 

An integer denoting the ordinal value of an ASCII character. 
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You must close the string of printing characters with an apostrophe before 
you can indicate the nonprinting characters. After you have listed the 
ordinal values for the nonprinting characters, you can reopen the string 
and continue with printing characters. For example: 

'A bell '(7)' in a null-terminated ASCII string'(0)' 

The ordinal value of the bell character is 7, and the value of the null 
character is 0. Note that the integers 7 and 0 are enclosed in parentheses 
within the character string. 


6.3.2.3 Array Type Examples 


1. ARRAY[1..50] OF 0..200 

This example shows a 50-component array of integers in the subrange 
from 0 to 200. ^ constructor to give all the components the value zero 
might be: 

(50 OF 0) 

2. ARRAYC1..8. QR..KR] OF Chessmen 

This example shows a two-dimensional array that represents a chess 
board. Assume that the component type of the array. Chessmen, is the 
enumerated type (QR, QN, QB, Q, K, KB. KN, KR, P, E). You can write 
the following constructor to show how the chess pieces are arranged 
on the board at the start of a game: 

((QR.QN.QB,Q,K,KB,KN.KR). (8 OF P). 4 OF (8 OF E), (8 OF P). 
(QR.QN.QB.Q.K.KB.KN.KR)) 

The pieces from Queen's Rook (QR) to King's Rook (KR) are lined up 
along each end of the board, in the first and eighth rows of the array. 
The second and seventh rows of the array contain Pawns (P). The 
third through sixth rows are empty (E). 

3. PACKED ARRAY[1..10] OF CHAR; 

For this array type, you can write the following string constructors: 

'C.P.E.Bach' 

'engrossing' 

(10 OF ’ 
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6.3.3 VARYING OF CHAR Type 


The VARYING OF CHAR data type denotes a string of character compo¬ 
nents. The maximum length of the string is established by the VARYING 
OF CHAR type definition. Unlike a fixed-length packed array of charac¬ 
ters, a VARYING string can have values of any length, from zero to the 
maximum specified. It has the form: 

VARYING[upper-bound] OF [[attribute-listH CHAR 

upper-bound 

An integer in the range from 1 through 65,535 that indicates the length of 
the longest possible string. 

attribute-list 

One or more identifiers that provide additional information about the 
VARYING string components (see Chapter 14, Attributes). 

When you declare a variable or component of type VARYING OF CHAR, 
the compiler allocates enough storage space to hold a string of the 
maximum length. The lengths of the character strings assigned to the 
variable or component may vary from zero to the specified maximum. A 
VARYING string with length zero is the empty string, 

Although VARYING OF CHAR is a distinct type, it possesses some of the 
properties of both record and array types. A VARYING string is actually 
stored as though it were a record with two fields, LENGTH and BODY. 
The type definition 

VARYING[upper-bound] OF CHAR 

may be thought of as the record type: 

RECORD 

LENGTH : [WORD] 0..upper-bound; 

BODY : PACKED ARRAY[1..upper-bound] OF CHAR; 

END; 

LENGTH and BODY are predeclared field identifiers in VAX PASCAL. 
The LENGTH field contains the length of the current character string; 
the BODY field contains the string. If your program requires it, you 
can access the values of LENGTH and BODY as you would access the 
values of record fields. However, the compiler does not allow the use of 
LENGTH and BODY fields within a WITH statement, as some of the string 
properties of the VARYING OF CHAR data type would be lost. Notice 
that BODY is a fixed-length array large enough to contain a character 


6-28 


Data Types 







string of the maximum length specified. (The WORD attribute is explained 
in Section 14.19.) 

You can refer to the components of a VARYING string just as you refer 
to individual array components: by using the name of a VARYING 
string variable followed by an index value enclosed in brackets. For 
example, to access the fourteenth character of the variable Sentence, 
specify Sentence[14]. Note that you may not specify an index value that 
is greater than the length of the current string. Enabling bounds checking 
causes this rule to be checked at run time (see Section 14.5 and the VAX 
PASCAL User's Guide). Bounds checking is enabled by default. 

The VARYING OF CHAR type does not have its own constructor syntax. 
Instead, it uses the same constructor syntax as a fixed-length character 
string, except that the length of the constructor can be shorter than the 
length specified in the type definition. When you need to assign to or 
initialize a variable of type VARYING OF CHAR, or when you need to 
pass a value to a formal parameter of type VARYING OF CHAR, you 
must use an expression that is assignment compatible with the variable or 
parameter (see Section 6.5). 

Examples 

1. VARYING[26] OF CHAR 

For this VARYING OF CHAR type, some possible values are: 

'Wolfgemg Amadeus Mozart' 

•Bach* 

2. ARRAYC1..5] OF VARYING[20] OF CHAR 

A constructor for this array type would have five string values, as in 
the following: 

('Boston', 'Chicago', 'San Francisco', 'Dallas', 'Minneapolis') 

3. RECORD 

Title : VARYING[30] OF CHAR; 

Author : VARYING[20] OF CHAR; 

Category : (Fiction, Biography, Nonfiction, Children); 

END; 

A constructor for this record type must have two string values and a 
constant value of the enumerated type. For example: 

('Gone with the Wind', 'Mitchell', Fiction) 
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6.3.4 SET Type 


In PASCAL, a set is a collection of data items of the same ordinal type 
(called the base type). The set type definition specifies the values that can 
be elements of a variable of that type. It has the following form: 

IPACKED]] SET OF Hat tribute-list I] base-type 

attribute-list 

One or more identifiers that provide additional information about the base 
type (see Chapter 14, Attributes). 

base-type 

The ordinal type identifier or type definition from which the set elements 
are selected. Note that real numbers cannot be elements of a set type. 

You define a set by listing all the values that can be its elements. A set 
whose base type is INTEGER or UNSIGNED can have a maximum of 
256 elements; the ordinal value of each element must be between 0 and 
255. Therefore, integers outside the range of 0 through 255 cannot be set 
elements. For sets of other ordinal base types, elements can include the 
full range of the type. 

To form a set constructor, enclose within brackets one or more constant 
values selected from the list of set elements. You can indicate consecutive 
values that appear in the set definition by using the subrange (..) symbol. 
For example, a constructor for a SET OF 35.. 115 can look like this: 

[39. 67. 95. 110..115] 

The set constructor contains nine values: 39, 67, 95, and all the integers 
between 110 and 115 inclusive. 

A set having no elements is called an empty set and is written []. 

Examples 

1. SET OF CHAR 

Some possible constructors for this set type are: 

[•A*. ’E'. 'I', 'O'. 'U'] 

['B'..'D'. 'P'..'T'. 'V'..'Z'] 
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2. SET OF 1..255 

A constructor for a set of this type might include the following values: 

[3. 4. 15. 20, 23. 34. 40. 45, 55. 60. 70] 

Note that the upper limit of the subrange is the maximum allowed for 
a set of integers. 


6.3.5 FILE Type 

A file is a sequence of components of the same type. The number of com¬ 
ponents is not fixed; a file can be of any length. The file type definition 
identifies the component type. It has the form: 

[[PACKED]] FILE OF [[attribute-list]] component-type 

attribute-list 

One or more identifiers that provide additional information about the file 
components (see Chapter 14, Attributes). 

component- type 

The type of the file components. It can be any ordinal, real, pointer, 
or structured type, except a file type or a structured type with a file 
component. 

When you declare a file variable, the compiler automatically creates a file 
buffer variable of the component type; this variable takes on the value of 
one file component at a time. You can access only one file component, 
called the current component, at a given time. The predeclared input and 
output procedures described in Chapter 12, Input and Output Processing, 
move the file position, thus changing the value of the file buffer vari¬ 
able. To denote the file buffer variable, write the name of the associated 
file variable and follow it with a circumflex ("). No operations may 
be performed on the file while a reference to the file buffer variable 
exists. (The conditions that establish a variable reference are listed in 
Chapter 8, The Declaration Section.) 

For example, suppose you declare a file variable MatlwScores of type FILE 
OF INTEGER. As input and output procedures change the file position, 
the value of the file buffer variable Math—Scores" also changes. Figure 6-5 
shows the file positioned at the third component; the value of Math- 
Scores" is 70. 
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Figure 6-5: File Buffer Contents 


one file component 


90 

65 

70 

73 

81 

89 


I 


file position 


70 


File buffer Math Scores'' 


ZK-101-81 


The arithmetic, relational. Boolean, and assignment operators cannot be 
used with file variables or structures containing file components. You 
cannot form constructors of file types. 

Examples 

1. FILE OF BOOLEAN 

This example shows a file of Boolean values. If you declare a variable 
Truthvals of this type, the file buffer variable is denoted by Truthvals". 

2. FILE OF PACKED ARRAY[1.20] OF CHAR 

The components of this file type are strings of 20 characters. You can 
declare variables of this file type to contain lists of names, such as 
Accept -List, Reject-List, and Wait—List. 

3. FILE OF RECORD 

Trial ; INTEGER; 

Date : RECORD 


Month : 

: (j 2 m,Feb,Mar,Apr,May,Jun, 
Jul,Aug,Sep,Oct,Nov,Dec); 

Day 

: 1..31; 

Year 

: INTEGER; 

END; 


Temp, Pressure 

: INTEGER; 

Yield, Purity 
END; 

: REAL; 


This example shows a file of records. If you declare a variable Results 
of this type, you would access fields of the record components as 
Results".Trial, Results".Date.Month, and so on. 
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6.3.5.1 External and Internal Files 

A file that has a name in a directory and exists outside the context of a 
VAX PASCAL program is known to VAX Record Management Services 
(RMS) as an external file. A file that has no name and is not retained 
after the program finishes execution is known as an internal file. The 
OPEN procedure (see Chapter 12, Input and Output Processing) creates 
an association between VAX RMS and a file variable. 

A file declared in the program heading is external by default. A file 
declared in a nested block is internal by default. You can change the 
default by giving an explicit name to an internal file. The file is then 
considered external and is retained with the specified name after the 
program has finished execution. 


6.3.5.2 Text Files 

PASCAL supplies a predefined file type called TEXT. Variables of this type 
are called text files and have components of type CHAR. A text file differs 
from a file of type FILE OF CHAR in that it is divided into lines. Each 
line in a text file is a sequence of characters terminated by an end-of-line 
marker. You can refer to the marker indirectly through the predeclared 
procedures READLN and WRITELN and the predeclared function EOLN 
(see Chapter 12, Input and Output Processing). 

The predeclared file variables INPUT and OUTPUT are files of type TEXT. 
They refer to the standard input and output files, normally a terminal (in 
interactive mode) or the batch input and log file (in batch mode). These 
files are the defaults for all the predeclared text file procedures described 
in Chapter 12, Input and Output Processing. 


6.4 Pointer Types 

Normally, variables exist as long as the program or routine in which 
they are declared is executing. By default, variables declared at program 
or module level are allocated in static storage; variables declared in 
nested blocks are allocated automatically on the stack. Some applications, 
however, require variables that have shorter or longer lifetimes within a 
program, or an unknown number of variables of a certain type. PASCAL 
allows you to use dynamic variables to fulfill these requirements. 
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Dynamic variables are allocated in an area called heap storage as they are 
needed during program execution. The NEW and DISPOSE procedures, 
described in Chapter 11, Predeclared Routines, allocate and deallocate 
dynamic variables. 

Unlike other variables, dynamic variables do not have identifiers; you 
must refer to them indirectly with pointers. The pointer type definition 
identifies the type identifier of the dynamic variable, and has the following 
syntax: 

" [[attribute-list]] base-type-identifier 

attribute-list 

One or more identifiers that provide additional information about the base 
type (see Chapter 14, Attributes). 

base-type-identifier 

The type identifier of the dynamic variable to which the pointer type 
refers. The base type can be any type. 

A variable of a pointer type refers to a dynamic variable of the base type, 
and is said to be bound to that type. To indicate a pointer variable, write 
its name. To indicate the dynamic variable to which a pointer refers, 
write the name of the pointer variable followed by a circumflex ("). For 
example, suppose that M is a pointer variable bound to a record of type 
Myrec. Specify M" to denote the record variable of type Myrec to which 
M refers. 

Pointers assume values through initialization, assignment, the READ 
procedure (see Chapter 12, Input and Output Processing) and the NEW 
procedure. The value of a pointer can be either the storage address of a 
dynamic variable or the predeclared identifier NIL. NIL indicates that the 
pointer does not currently refer to a dynamic variable. 

A file referenced by a pointer is not closed until either execution of 
the program terminates or the dynamic variable is deallocated with 
the DISPOSE procedure. If you do not want the file to remain open 
throughout program execution, you must use the CLOSE procedure (see 
Chapter 12, Input and Output Processing) to close it. 
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Example 


TYPE 

Reservation = RECORD 

Name : VARYING[30] OF CHAR: 

Class : (Standby, Coach, First); 

Non.Smoking : BOOLEAN; 

Flight.Number : INTEGER; 

Destination : VARYING[5] OF CHAR; 

Next.Passenger: “Reservation; 

END; 

Suppose you define the record type shown here and give it the type iden¬ 
tifier Reservation. The field Next_Passenger is defined as a pointer to the 
type Reservation. You can declare a variable Ticket of type Reservation; 
then, by manipulating the pointer variable Ticket.Next_Passenger, you 
can create a linked list of records. 


6.5 Type Compatibility 

The VAX PASCAL compiler enforces two forms of type compatibility: 

• Structural compatibility 

• Assignment compatibility 

Structural compatibility, described in Section 6.5.1, determines the types of 
data you can pass as VAR parameters and the types of pointer assignments 
you can make. Assignment compatibility, presented in Section 6.5.2, 
determines the types of values you can assign to variables of each type. 


6.5.1 Structural Compatibility 

Two types are structurally compatible only if they have the same al¬ 
location size and the same type structure. VAX PASCAL requires that 
the type of a variable passed to a routine as an actual parameter be 
structurally compatible with the type of the corresponding formal VAR 
parameter. VAX PASCAL also checks the structural compatibility of the 
base types when a pointer expression is assigned to a pointer variable. 

Two ordinal types are structurally compatible only if they have the same 
base type and the same allocation size. The size may be established either 
by a size attribute (see Section 14.19) or by default. See the VAX PASCAL 
User's Guide for the default allocation sizes of ordinal types. 


Data Types 6-35 







If two ordinal types are components of packed structured types, they are 
structurally compatible only if the ranges of values they describe have 
identical upper and lower bounds. 

In general, each real type is structurally compatible only with itself. 
However, because REAL and SINGLE are synonymous, they are struc¬ 
turally compatible with each other. 

In order for two structured types to be structurally compatible, they must 
have the same allocation size, and both must be packed or both unpacked. 
The following conditions also affect structural compatibility: 

• If both types are record types, they must have the same number 
of fields, and the types of corresponding fields must be structurally 
compatible and identically positioned. If the record types have variant 
parts, the corresponding variants must have identical case labels 
written in the same order. The types of the fields within corresponding 
variants must be structurally compatible. 

• If both types are array types, the types of their components must be 
structurally compatible. The index types must have identical base 
types and identical upper and lower bounds. 

• If both types are VARYING OF CHAR types, their maximum lengths 
must be equal. The lengths of the current values of the VARYING 
strings do not affect structural compatibility. 

• If two components of packed structured types are set types, their base 
types must have identical lower bounds and upper bounds. 

• If both types are set types, file types, or pointer types, their base 
types must be structurally compatible. Because of the possibility that 
a pointer type can be defined in terms of itself, the VAX PASCAL 
compiler begins the test for the structural compatibility of two pointer 
types by assuming that they are indeed compatible. Next, the compiler 
tests the two base types for structural compatibility. If within the base 
type, the compiler encounters the same pointer types it is testing, it still 
follows the original assumption that the pointer types are compatible. 

If the base types prove to be structurally compatible, then the two 
pointer types are in fact structurally compatible. 

The effects of the alignment, POS, READONLY, UNSAFE, VOLATILE, 
and WRITEONLY attributes on structural compatibility are discussed in 
Chapter 14, Attributes. 
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6.5.2 Assignment Compatibility 


Assignment compatibility rules apply to the types of values used to 
initialize variables, the types of expressions assigned to variables using 
the assignment operator (:=), and the types of actual parameters passed to 
formal value parameters. Table 6-2 shows the contexts in which the type 
of an expression is assignment compatible with the type of a variable or a 
formal parameter. 


Table 6-2: Assignment Compatibility 


Type of Variable 
or Parameter 

Type of Assignment- 
Compatible Expression 

INTEGER 

INTEGER 

UNSIGNED 

UNSIGNED, INTEGER 

CHAR 

CHAR 

Subrange 

Base type of the subrange 

REAL, SINGLE 

REAL, SINGLE, UNSIGNED. INTEGER 

DOUBLE 

DOUBLE, REAL, SINGLE, UNSIGNED, INTE¬ 
GER 

QUADRUPLE 

QUADRUPLE, DOUBLE, REAL, SINGLE, 
UNSIGNED, INTEGER 

PACKED ARRAY OF 
CHAR 

CHAR, PACKED ARRAY OF CHAR with the same 
length, VARYING string whose current value is 
equal in length to the packed array 

VARYING OF CHAR 

CHAR, PACKED ARRAY OF CHAR, 
VARYING string whose current value does not ex¬ 
ceed the maximum length of the variable or param¬ 
eter 

Pointer 

Pointer to a structurally compatible type 
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Two record types or two array types are assignment compatible if they 
are structurally compatible. When you assign one record variable to 
another, or one array variable to another, the VAX PASCAL compiler 
does not check for out-of-range assignments to record fields or array 
components; such assignments do not result in an error message, even 
if subrange checking is enabled at compile time. See Section 14.5, the 
CHECK attribute, and the VAX PASCAL User's Guide for more information. 

A set expression is assignment compatible with a set variable if the set's 
base types are compatible. In addition, all elements of the set expression 
must be included in the range of the variable's base type. 

Note that assignment operations are not allowed on objects of file types or 
structured types that have file components. 

The POS, READONLY, and UNSAFE attributes can change the rules 
of assignment compatibility; see Chapter 14, Attributes, for complete 
descriptions of these changes. 
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Chapter 7 

Expressions 


An expression denotes a value. An expression may represent the value 
of a constant, a variable, or a function designator, or it may represent a 
combination of values. 

VAX PASCAL recognizes two forms of expressions: compile-time ex¬ 
pressions and run-time expressions. A compile-time expression consists 
entirely of operands whose values can be determined when the program 
is compiled. The simplest compile-time expression is a single constant or 
constant identifier. Other compile-time expressions combine constants and 
constant identifiers with operators and the predeclared functions listed 
below. See Chapter 11, Predeclared Routines, for complete descriptions of 
predeclared routines. 

• Allocation Size—BITNEXT, BIT_OFFSET, BITSIZE, BYTE_OFFSET, 
NEXT, SIZE 

• Arithmetic—ABS, ARCTAN, COS, EXP, LN, MAX, MIN, SIN, SQR, 
SQRT, UAND, UNOT, UOR, UXOR, XOR 

• Ordinal—PRED, SUCC 

• String—INDEX, LENGTH, PAD, SUBSTR 

• Transfer—CHR, DBLE, INT, ORD, QUAD, ROUND, SNGL, TRUNC, 
UINT, UROUND, UTRUNC 

• Miscellaneous— CARD, EXPO, ODD, ZERO 

A run-time expression includes at least one operand whose value can¬ 
not be determined until the program is actually executed. A run-time 
expression contains one or more variables or function designators, but 
can also include constants, constant identifiers, and operators. You in¬ 
clude a function designator within an expression by writing the function 
identifier and, optionally, a list of parameters that supply input val¬ 
ues. The value of the function result is used in the expression. See 
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Chapter 11, Predeclared Routines, for a complete discussion of writing 
function designators. 

When forming a PASCAL expression, you are not limited to combining 
integers only with integers, real numbers only with real numbers, and so 
forth. PASCAL performs type conversions under certain circumstances as 
described in Section 7.1, so that you can form expressions with operands 
of different types. 

The operators used to form PASCAL expressions are the arithmetic, 
relational, logical, and set operators, all of which are explained in the 
following sections. Although in general you cannot change the type of a 
variable once it has been declared, sometimes you may want to have this 
capability when forming expressions. Therefore, VAX PASCAL allows 
you to temporarily alter a variable's type by using the type cast operator, 
as explained in Section 7.2.6. The order in which the operands in an 
expression are combined is determined by the precedence rules for the 
various operators, as described in Section 7.3. 


7.1 Type Conversions 

Since PASCAL is a strongly typed language, you cannot normally treat 
a value of one type as though it were of a different type, as you can in 
many languages. For example, you cannot assign the character 'V to a 
variable of type INTEGER, because '1' is not an integer constant but a 
character constant. However, there are times when it makes sense to 
combine values of two different types because the values have something 
in common. For example, suppose you wish to add a value of type REAL 
to a value of type INTEGER. This operation is legal because the value of 
type INTEGER is converted to its equivalent value of type REAL before 
the operation is performed. The result of the operation is of type REAL. 

In PASCAL, values are converted from one type to another when the 
conversion is required for an operation, an assignment, or a formal/actual 
parameter association. Prior to any type conversion, the arithmetic types 
are ranked from lowest to highest: 

INTEGER 

UNSIGNED 

REAL,SINGLE 

DOUBLE 

QUADRUPLE 
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Similarly, the character types are also ranked from lowest to highest: 
CHAR 

PACKED ARRAY OF CHAR 
VARYING OF CHAR 

When values of two different arithmetic or character types are combined 
in an expression, the lower-ranked operand is converted to its equivalent 
in the higher-ranked type. The result of an operation in which conversion 
occurs is always of the higher-ranked type. 

Conversions to values of type UNSIGNED are never checked for overflow. 
When combined with other unsigned values, negative integer values are 
converted to large unsigned values by the calculation of the modulus with 
respect to 2^^ (see Section 7.2.1 for a description of the MOD operation). 

A special case of conversion can occur when you attempt to assign an 
expression of type VARYING OF CHAR to a variable of type PACKED 
ARRAY OF CHAR. If the VARYING string has exactly the same number 
of components as the packed array, the VARYING string is converted to a 
packed array of characters before the assignment is made. If you attempt 
to perform this assignment with a VARYING string that has a different 
number of components than the packed array, a run-time error occurs. 


7.2 Operators 

PASCAL provides several classes of operators. You can form complex 
compile-time and run-time expressions by using operators to combine 
constants, constant identifiers, variables, and function designators. 

PASCAL supplies the following classes of operators: 

• Arithmetic operators 

• Relational operators 

• Logical operators 

• String operators 

• Set operators 

• Type cast operators 


Expressions 7-3 






7.2.1 Arithmetic 


An arithmetic operator usually provides a formula for calculating a value. 
To perform an arithmetic operation, you combine numeric data items with 
one or more of the operators listed in Table 7-1. 


Table 7-1: Arithmetic Operators 


Operator 

Example 

Result 

- 1 - 

A+B 

Sum of A and B 

- 

A-B 

B subtracted from A 

* 

A*B 

Product of A and B 

** 

A**B 

A raised to the power of B 

/ 

A/B 

A divided by B 

DIV 

A DIV B 

Result of A divided by B, 
truncated toward zero 

REM 

A REM B 

Remainder of A divided by B 

MOD 

A MOD B 

Modulus of A with respect to B 


Addition, subtraction, multiplication, and exponentiation (+, -, *, and n’^) 
operate on integer, unsigned, and real operands and produce a result 
of the same type as the values. If the expression contains operands of 
different types, PASCAL'S conversion rules apply (see Section 7.1). 

When you use a negative integer as an exponent, the exponentiation 
operation may yield unexpected results. The result of an integer raised to 
the power of a negative integer is defined as shown in Table 7-2. 
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Table 7-2: Results of Negative Exponents 


Base 

Exponent 

Result 

0 

Negative or 0 

Error 

1 

Negative 

1 

-1 

Negative and odd 

-1 

-1 

Negative and even 

1 

Any other integer 

Negative 

0 


For example, the expression equals 1; (-1)^ equals -1; (-1)^ 
equals 1; and 3^“^^ equals 0. 


The division (/) operator can be used on integer, unsigned, and real 
operands, but always produces a real result. Use of the division (/) op¬ 
erator can therefore cause some loss of precision in expressions involving 
integer ^ud unsigned operands. 

DIV, REM, and MOD operate only on integer unsigned operands. 
DIV divides one integer or unsigned operand by the other, producing 
an integer or unsigned result. DIV truncates toward zero any remaining 
fraction; it does not round the result. For example, the expression 23 DIV 
12 equals 1, and (-5) DIV 3 equals -1. 

REM returns the remainder after dividing the first operand by the second. 
Thus, 5 REM 3 evaluates to 2. Similarly, 3 REM 3 evaluates to 0 and (-4) 
REM 3 evaluates to -1. 

MOD returns the modulus of the first operand with respect to the second. 
The result of the operation A MOD B is defined only when B is a positive 
integer. This result is always an integer between 0 and B-1. The modulus 
of A with respect to B is computed as follows: 

• If A is greater than B, B is subtracted repeatedly from A until the result 
is a nonnegative integer less than B. 

• If A is less than B and not negative, the result is A. 

• If A is less than 0, B is added repeatedly to A until the result is a 
nonnegative integer less than B. 

For example, 5 MOD 3 = 2, (-4) MOD 3 = 2, and 2 MOD 5 = 2. 
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When both operands are positive, the REM and MOD operators return the 
same result. For example, 28 REM 5 = 3 and 28 MOD 5 = 3. However, 
when the first operand is negative, REM produces a negative or zero 
result, while MOD produces a positive or zero result. For example, (-42) 
REM 8 = -2 and (-42) MOD 8 = 6. 

Note that the use of negative integer and real-number constants as 
operands in MOD and exponentiation operations may not produce the 
results you expect because the minus sign (-) is actually a negation op¬ 
erator. For example, the expression -2.lr is equivalent to the expression 
-(2.0^) and produces the result -4.0. Therefore, you should enclose a 
negative constant in parentheses to make sure that it is interpreted as you 
intend. The expression (-2.0)^ produces the result 4.0. 

Table 7-3 lists the result types of arithmetic operations with operands of 
various types. 


Table 7-3: Result Types of Arithmetic Operations 


Operator 

Type of Operands 

Result Type 


INTEGER, UNSIGNED, 

Same as the operands if both are 

- 

REAL, DOUBLE, 

of the same type; otherwise, the 

* 

* * 

QUADRUPLE 

operand of the lower-ranked type 
is converted and the result is of 
the higher-ranked type 

/ 

INTEGER, UNSIGNED, 
REAL, DOUBLE, 
QUADRUPLE 

One of the real types — REAL if 
the operands are of type REAL (or 
SINGLE) or a lower-ranked type; 
otherwise, the operand of the 
lower-ranked type is converted 
and the result is of the higher- 
ranked type 

DIV 

INTEGER and 

INTEGER if both operands are of 

REM 

MOD 

UNSIGNED only 

type INTEGER; UNSIGNED if 
the operands are of mixed types or 
are both UNSIGNED; otherwise, 
an error occurs 
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7.2.2 Relational 


A relational operator tests the relationship between two ordinal, real, 
string, or set expressions and returns a Boolean result. If the relationship 
holds, the result is TRUE; otherwise, the result is FALSE. Table 7-4 lists 
the relational operators that you can apply to arithmetic operands. You 
can also apply relational operators to string operands, as described in 
Table 7-6, and to set operators, as described in Table 7-7. 


Table 7—4: Relational Operators 


Operator 


Example 


Result 


= 

A = B 

TRUE if A is equal to B 

<> 

A <> B 

TRUE if A is not equal to B 

< 

A < B 

TRUE if A is less than B 

<= 

A <= B 

TRUE if A is less than or equal to B 

> 

A > B 

TRUE if A is greater than B 

>= 

A >= B 

TRUE if A is greater than or equal to B 


Note that the two characters that constitute the not equal ( < > ), greater 
than or equal (> =), and less than or equal ( < =) operators must appear 
in the order specified and cannot be separated by a space. 
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7.2.3 Logical 


A logical operator evaluates one or more Boolean expressions and returns 
a Boolean value. The logical operators are listed in Table 7-5. 


Table 7-5: Logical Operators 


Operator 

Example 

Result 

AND 

A AND B 

TRUE if both A and B are TRUE 

OR 

A OR B 

TRUE if either A or B is TRUE (or if both 
are TRUE) 

NOT 

NOT A 

TRUE if A is FALSE (and FALSE if A is 
TRUE) 


The AND and OR operators combine two conditions to form a compound 
condition. The NOT operator reverses the value of a single condition so 
that if A is TRUE, NOT A is FALSE, and vice versa. 

The following examples show logical expressions and their Boolean 
results. 


Expression Result 

(4 > 3) AND (18 = 3* 6) TRUE 

(3 > 4) OR (18 = 3 * 6) TRUE 

NOT (4 < > 5) FALSE 


Boolean variables and functions can be used as operands in logical expres¬ 
sions. For example: 

Flag AND ODD (I) 
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Suppose Flag is a Boolean variable. ODD (I) is a function that returns 
TRUE if the value of the integer variable I is odd and FALSE if the value 
of I is even. Both operands. Flag and ODD (1), must be TRUE for the 
expression to be TRUE. 


7.2.4 String 


A String operator concatenates or compares character-string expressions; 
its result is either a string or a Boolean value. The string operators are 
listed in Table 7-6. 


Table 7-6: String Operators 


Operator 

Example 

Result 

+ 

A+B 

String that is the concatenation of strings 

= 

A=B 

TRUE if strings A and B have equal ASCII 
values 

<> 

AoB 

TRUE if strings A and B have unequal AS¬ 
CII values 

< 

A<B 

TRUE if ASCII value of string A is less 
than that of string B 


A<=B 

TRUE if ASCII value of string A is less 
than or equal to that of string B 

> 

A>B 

TRUE if ASCII value of string A is greater 
than that of string B 

>= 

PQ 

II 

A 

< 

TRUE if ASCII value of string A is greater 
than or equal to that of string B 


With the plus sign ( + ), you can concatenate any combination of VARYING 
character strings, packed arrays of characters, and single characters. 
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The result of a string comparison depends on the ordinal value (in the 
ASCII character set) of the corresponding characters in the strings (see 
Appendix A, ASCII Character Set). For example: 

'motherhood' > 'cherry pie' 

This relational expression is TRUE because lowercase "m" comes after 
lowercase "c" in the ASCII character set. If the first characters in the 
strings are the same, PASCAL looks for differing characters, as in the 
following: 

'stringl' < '8tring2' 

This expression is TRUE because the digit 1 precedes the digit 2 in the 
ASCII character set. 

The relational operators are legal for character strings of different lengths 
as well as for character strings of the same lengths. The shorter of the two 
character strings is padded with blanks for the comparison. The following 
two strings, for instance, are true: 

'John' < 'Johnny' 

'abc' = 'abc###' 

Enabling bounds checking causes the lengths of all character strings to be 
checked at run time for illegal operations (see Section 14.5 and the VAX 
PASCAL User's Guide). Bounds checking is enabled by default. 


7.2.5 Set 


A set operator forms the union, intersection, difference, or exclusive 
or (XOR) of two sets, compares two sets, or tests an ordinal value for 
inclusion in a set. Its result is either a set or a Boolean value. Table 7-7 
lists the set operators. 
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Table 7-7: Set Operators 


Operator 

Example 

Result 


A+B 

Set that is the union of sets A and B 

* 

A*B 

Set that is the intersection of sets A and B 

- 

A-B 

Set of those elements of set A that are not also 
in set B 

= 

A-B 

TRUE if set A is equal to set B 

<> 

AoB 

TRUE if set A is not equal to set B 


A<=B 

TRUE if set A is a subset of set B 

>= 

A>=B 

TRUE if set B is a subset of set A 

IN 

C IN B 

TRUE if C is an element of set B 


Most set operators require both operands to be set expressions. The IN 
operator, however, requires an ordinal expression as its first operand and 
a set expression as its second operand. The ordinal expression must be of 
the same type as the set's base type. For example: 

2*3 IN [1..10] 

The result of this IN operation is TRUE because 2*3 evaluates to 6, which 
is a member of the set [1..10]. 

The elements of a set constructor used in a set operation need not all be 
constants of the set type. Set elements are also allowed to be components 
of run-time expressions. For example, the set constructor 

[i, j+5, k*l, m..q] 

is a legal component of a run-time expression. If at run time, however, the 
value of m is greater than the value of q, the expression m..q would result 
in no set elements. In that case, the set constructor shown here would 
denote only three set elements. 
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7.2.6 Type Cast 


Every variable is associated with one and only one type: the type with 
which it was declared. Sometimes, however, you might be able to per¬ 
form an operation more efficiently if you were able to temporarily relax 
pascal's strict type-checking rules. 

VAX PASCAL provides the type cast operator, which changes the context 
in which you can use a variable or an expression of a certain data type. 
The actual representation of the object being cast is never altered by the 
type cast operator. The type is simply overridden for the duration of one 
operation. It has the form: 

variable-identifier :: type-identifier 


or 


(expression) :: type-identifier 

The type cast operator (::) separates the name of a variable or an ex¬ 
pression in parentheses from its target type, the type to which it is being 
cast. The operator "alters" the type of the cast object at that point only. 
The compiler assumes that a type cast will not atfect the object at any 
other point in the program. Therefore, if the type cast is likely to affect 
the object elsewhere, the object should be declared with the VOLATILE 
attribute (see Chapter 14, Attributes). 

Once a variable or an expression has been cast, it has all the properties 
of its target type during the execution of the operation in which the 
type cast operator appears. A variable and its target type must have 
the same allocation size. Therefore, you may not cast a conformant 
variable parameter (see Section 10.3.5), although you may cast a fixed-size 
component of a conformant parameter. 

When an expression in parentheses is cast, its value may be either 
truncated on the left or padded on the left with zeros, so that the al¬ 
location size of the expression's value and its target type become the 
same. The type of a cast expression cannot be VARYING OF CHAR (see 
Section 6.3.3), or a conformant schema (see Section 10.3.5). In addition, 
the target type of a cast expression cannot be VARYING (3F CHAR. See 
the VAX PASCAL User's Guide for the representation details for all the 
types. 
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Example 


TYPE 

F.Float = PACKED RECORD 
Fracl : 0..127; 
Expo : 0..265; 
Sign : BOOLEAN; 
Frac2 : 0..65635; 
END; 

VAR 

A : REAL; 


A:: F.Float. Expo := A:: F.Float. Expo 1; 

In this example, the record type F_Float illustrates the layout of an 
F_iloating real number. The real variable A is cast as a record of this type, 
allowing you to access the fields containing the mantissa, exponent, sign, 
and fraction of A. Adding 1 to the field containing the exponent gives the 
same result as multiplying A by 2.0. 


7.3 Precedence of Operators 

The operators in an expression establish the order in which the operands 
are combined. Table 7-8 lists the order of precedence of the operators, 
from highest to lowest. 

Table 7-8: Precedence of Operators 


Operators Precedence 


NOT 

** 

*, /, DIV, REM. MOD, 
AND 

+ , OR, Unary +, Unary 

<>, <, <=, >, >=, IN 


Highest 


t 

Lowest 
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In PASCAL, operators of equal precedence (such as + and -) are combined 
from left to right. 

You must use parentheses for correct evaluation of an expression that 
combines relational operators. Consider, for example, the following 
expression: 

A<=X AND B<=Y 

Without parentheses, this expression would be interpreted as 
A< = (X AND B) < =Y which would result in an error either because 
X and B are not of type BOOLEAN, or because of illegal syntax on the 
second < =. The same type of error would occur, even if X and B are both 
BOOLEAN. The expression needs parentheses, as follows: 

(A<=X) AND (B<=Y) 

When the rewritten expression is evaluated, the Boolean values of the two 
relational expressions are combined with the AND operator. 

You can use parentheses in an expression to force a particular order for 
combining the operands. For example: 


Expression: Result: 

8 * 5 DIV 2-4 16 

8 * 5 DIV (2-4) -20 

The first expression is evaluated according to the normal precedence rules. 
First, 8 is multiplied by 5 and the result (40) is divided by 2. Then, 4 is 
subtracted to get 16. The parentheses in the second expression, however, 
force the subtraction of 4 from 2 (yielding -2) to be performed before the 
division of 40 by -2. The result is -20. 

Parentheses can also help to clarify an expression. For instance, you could 
write the first example as follows: 

((8 * 5) DIV 2) - 4 

The parentheses eliminate any confusion about how the expression is to 
be evaluated. 

The PASCAL compiler does not guarantee the order in which subex¬ 
pressions, or the components of a complex expression, will be evaluated. 
In fact, some logical operations may be evaluated only partially if the 
result can be determined without complete evaluation. Usually the order 
of evaluation does not prevent the correct result from being produced. 
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However, you should not overlook the importance of order in subexpres¬ 
sion evaluation when you are writing logical operations involving function 
designators that have side effects. (A side effect is an assignment to a 
nonlocal variable or to a VAR parameter within a function block.) 

For example, the following IF statement contains two function designators 
for function F: 

IF F(A) AND F(B) 

THEN 


Regardless of which function designator is evaluated first, if the result is 
FALSE, the other function designator does not have to be evaluated; the 
result of the IF test is likewise FALSE. Suppose that function F assigns 
the value of its parameter to a nonlocal variable. Because you cannot 
know which function designator was evaluated first, you cannot be sure 
of the value of the nonlocal variable after the IF statement is performed. 
Therefore, the desired results of your program should not depend on the 
order of subexpression evaluation. 
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Chapter 8 

The Declaration Section 


The first two parts of a PASCAL block are the heading and the declaration 
section. The heading specifies the name of the program, module, proce¬ 
dure, or function. The declaration section contains sections that define 
symbolic constants and user-created types, and sections that declare labels, 
variables, procedures, and functions. Each of these sections is introduced 
by an appropriate reserved word—LABEL, CONST, TYPE, VAR, VALUE, 
PROCEDURE, or FUNCTION. A block need not include all of these sec¬ 
tions. In VAX PASCAL, those sections that are present may appear in any 
order and may even appear more than once in a declaration section, For 
example, a sample program may look like the following: 

PROGRAM Progr 2 un_Name (program.parameterl, program_par2Lineter2, . . .); 

LABEL declarations 
CONST declarations 
TYPE declarations 
VAR declarations 
VALUE declarations 
PROCEDURE declarations 
FUNCTION declarations 

BEGIN (* main program *) 

. (♦ executable code *) 

END. (* main program ♦) 

This chapter describes: 

• Label declarations 

• Constant definitions 

• Type definitions 

• Variable declarations 

• Value declarations 
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Refer to Chapter 10, Procedures and Functions, for information on proce¬ 
dure and function declarations. 


8.1 Label Declarations 

A label is declared in the LABEL section; a label makes a statement 
accessible by a GOTO statement. The declaration and the definition of a 
label must occur at the same level in the program. The form of the LABEL 
declaration is: 

LABEL {label},...; 

label 

A decimal integer between 0 and MAXINT, or a symbolic constant. When 
declaring several labels, you can specify them in any order. 

You must use a colon (:) to separate the label from the statement it pre¬ 
cedes; it can precede any statement in the program, but it can be accessed 
only by a GOTO statement (see Chapter 9, Statements). All statement 
labels must appear in the LABEL declaration, and each label must precede 
exactly one statement within the scope of the label's declaration. 

Example 

PROGRAM name (INPUT. OUTPUT); 

LABEL 6. TEST. 778; 

BEGIN (.* main prograun *) 

IF A <= 150 THEN GOTO 5; 


6: A A + 1; 

TEST: IF J = 50 THEN GOTO 778; 


778: WHILE X < 20 DO 


END. (* main program ♦) 
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8.2 Constant Definitions 


A CONST section defines symbolic constants by associating constant 
identifiers with compile-time expressions. The CONST section has the 
following form: 

CONST 

{constant-identifier = constant-expressiorT ; • • • 

constant-identifier 

The identifier of the symbolic constant being defined. 

constant-expression 

Any legal compile-time expression. As explained in Chapter 7, 

Expressions, the VAX PASCAL compiler must be able to evaluate all the 
components of a compile-time expression when it compiles the program. 

Once a constant identifier is associated with an expression/ it retains the 
value of that expression throughout program execution. You can change 
the value only by changing the definition in the CONST section. 

You cannot access the individual components or fields of a symbolic 
constant that represents an array or record constructor. 

The use of constant identifiers makes a program easier to read, understand, 
and modify. If you need to change the value of a symbolic constant, sim¬ 
ply modify the CONST declaration instead of changing each occurrence of 
the constant in the program. This capability also makes programs simpler 
to maintain and easier to transport to other machines. 

Example 

CONST 

Year = 1984; 

Month = 'November'; 

Tinyd = 1.7253 d-10; 

Lie = FALSE; 

Untruth = Lie; 

Initial = 'P'; 

Almost.Pi = 22.0/7.01 

This CONST section defines seven symbolic constants. Year and Tinyd 
represent integer and double-precision numeric constants. Month repre¬ 
sents a string constant, and Initial represents a character constant. The 
constant value of Almost_Pi is the real-number result of the expression 
22.0/7.0. Both Lie and Untruth are equal to the Boolean value ^ALSE. 


The Declaration Section 8-3 






8.3 Type Definitions 


A TYPE section introduces the name and set of values for a user-defined 
type, and follows the form: 

TYPE 

{type-identifier = II attribute-list]] type}; . . . 

type-identifier 

The identifier of the type being defined. 

attribute-list 

One or more identifiers that provide additional information for use when 
the type identifier appears in a declaration (see Chapter 14, Attributes). 

type 

Any legal PASCAL type syntax. 

PASCAL usually requires that a type identifier be defined before it is 
used in the definitions of other types. In the only exception to this 
rule, PASCAL allows you to use a base type identifier in a pointer type 
definition before you define the base type. However, the base type 
must be defined before the end of the TYPE section in which it is first 
mentioned. For example: 

TYPE 

Ptr.to-Movie * "Movie; 

Name = PACKED ARRAY[1..20] OF CHAR; 

Movie = RECORD 

Title, Director : Name; 

Year : INTEGER; 

Stars : FILE OF Name; 

Next : Ptr.to Movie; 

END; 

The type Ptr_to - Movie is defined as a pointer to the type Movie, which is 
defined later in the same TYPE section. 
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Example 


TYPE 

Ent ert ainment 
Days of-Week 
Hours-Worked 
Salary = ARRAY[1..60]OF REAL; 
Pay = Salary; 

Ptr to Hits = "Hits; 

Hits = RECORD 

Title, Artist, 

Weeks on Chart 
First Version 
END; 


= (Dinner, Movie, Theater, Concert); 

= (Sun, Mon, Tues, Wed, Thurs, Fri, Sat); 
= ARRAY[Mon..Fri] OF INTEGER; 


Composer 
: INTEGER 
: BOOLEAN 


VARYING[30] OF CHAR; 


This TYPE section defines seven types and their identifiers. Both 
Entertainment and Days of Week are enumerated types. Hours Worked 
is an array type with five integer components. Salary and Pay are identical 
array types of 50 real numbers each. Ptr to Hits is defined as a pointer 
to the type Hits, which is a record type having the five fields listed. 


8.4 Variable Declarations 

A VAR section declares variables and associates each variable with an 
identifier, a type, and possibly an initial value, it has the form: 

VAR 

{{variable-identifier},... : lattribute-list]] type 
II . - valuel }; . . . 

variable-identifier 

The identifier of the variable being declared. 

attribute-list 

One or more identifiers that provide additional information about the 
variable (see Chapter 14, Attributes). 

type 

Any legal PASCAL type syntax. 

value 

Any assignment-compatible compile-time expression. 
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You can combine several identifiers in the same variable declaration 
if the variables are of the same type and are being initialized either 
with the same value or not at all. The following rules apply to variable 
initializations: 

• Only statically allocated variables can be initialized. If a variable 
is declared at the outermost level of a program, the compiler must 
choose between STATIC and AUTOMATIC allocation. Whenever 
possible, the compiler uses automatic allocation for variables that are 
referred to only in the body of the main program, because automatic 
allocation is more efficient. The compiler uses static allocation if the 
variable is VOLATILE, initialized at its declaration, or referred to in a 
nested block, or if the program has an ENVIRONMENT or OVERLAID 
attribute. To initialize a variable declared at an inner level, you must 
give it the STATIC attribute (see Chapter 14, Attributes). 

• You must initialize a variable with a compile-time expression of an 
assignment-compatible type. Scalar variables require scalar constants; 
structured variables require constant constructors. 

• You cannot initialize file variables. 

• The constant identifier NIL is the only value with which you can 
initialize a pointer variable. 

A reference to a variable consists of the variable's use in one of the 
situations in the following list: 

• The variable or one of its components is passed as a VAR (or %REF 
or %DESCR) parameter. The reference lasts throughout the call to the 
corresponding routine. See Chapter 11, Predeclared Routines, for a 
discussion of VAR, %REF, and %DESCR parameters. 

• The variable or one of its components is used on the left side of an 
assignment statement. The reference lasts throughout the execution 
of the statement. See Chapter 9, Statements, for a discussion of the 
assignment statement. 

• The variable or one of its components is accessed by a WITH state¬ 
ment. The reference lasts throughout the execution of the statement. 
See Chapter 9, Statements, for a discussion of the WITH statement. 

The predeclared function ZERO can also be used as an initializer. ZERO 
is compatible with any data type (except file type) and indicates that 
the entire storage of the variable is initialized to binary zero. In VAX 
PASCAL, data types are initialized using ZERO as follows: 
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Data Type 

Initialization 

INTEGER 

Zero 

REAL, SINGLE, DOUBLE, QUADRUPLE 

Zero 

BOOLEAN 

False 

Enumerated 

The enumerated element 
where ORD(element) = 0 

CHAR 

The character NUL 

VARYING OF CHAR 

The null string 

Sets 

The empty set 

Pointer Types 

NIL 

Subranges 

Zero—Note that an 
ordinal target with a 
subrange type can thus 
be initialized to a value 
outside the subrange. 

The compiler will treat 
this as an error. 


The existence of a variable reference sometimes prohibits certain opera¬ 
tions from being performed on the variable. Such restrictions are noted in 
this manual. 

Example 

VAR 

Choice : Entertainment ; > Dinner! 

Answer. Rumor : BOOLEAN; 

Temp : INTEGER ©o; 

Grade : 'A'..'D'; 

Next _Song : Ptr_to_Hits :* ZERO! 

Weekly_Hours : Hours_Worked ;* (7,8,7,9,6) I 

This VAR section declares seven variables and indicates the type of each. 
Choice is of the user-defined type Entertainment and is initialized with 
the constant identifier Dinner. Answer and Rumor are both Boolean 
variables. Temp is an integer variable initialized with the value 60. Grade 
is of a character subrange type consisting of the characters 'A', 'B', 'C, 
and 'D'. The pointer variable Next_Song is a pointer to the record type 
Hits defined in Section 8.3. Next_Sonc is given the constant identifier 
ZERO as its initial value. The variable WeeKly_Hours is declared to be 
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of the user-defined array type Hours—Worked and is initialized with a 
constructor of integers. 


8.5 Value Section 

The VALUE section is used to initialize ordinal, real, and structured 
variables (except file variables). Unlike the CONST, TYPE, and VAR dec¬ 
laration sections, the VALUE section can appear only in the naain program 
declaration section, that is, you cannot use the VALUE declaration section 
in procedures, functions, or modules. 

The description below presents general information on VALUE initial¬ 
izations. The exact format of an initialization depends on the type of 
the variable being initialized. For more information on types, refer to 
Chapter 6, Data Types. The VALUE section has the form: 

VALUE 

{variable-identifier := value};... 

variable-identifier 

The name of the variable to be initialized. You cannot specify a list of 
variable identifiers. 

value 

A constant of the same type as the variable, record field, or array element, 
or a constructor for a record, array, or set variable. 

When you declare variables in the VALUE section, you must initialize 
them with constants or constructors of the same type; you cannot specify 
an expression. 

An example of initialization is as follows: 

VAR 

SCHOOL ; RECORD 

CLASS : RECORD 

GRADES : CHAR; 

ORDER : INTEGER; 

END; 

PASSED : BOOLEAN; 

END; 


VALUE 

SCHOOL := ( CB' . 14). TRUE) 

The constructor of SCHOOL specifies a constant value of the correct type 
for each field in the record. 
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In addition to complete initialization, VAX PASCAL also allows you to do 
partial initialization in the VALUE section; that is, you can assign values 
(with constants or constructs of the same type) to specific elements of a 
structured variable. This feature is particularly useful, for instance, when a 
structured variable contains a file variable; such structures could not 
otherwise be initialized. Using the above example of complete initializa¬ 
tion, you could initialize the nested record CLASS by using constants: 

VALUE 

SCHOOL.CLASS.GRADES 'A'; 

SCHOOL.CLASS.ORDER :* 1; 

or, you could perform the same initialization by using a constructor such 
as: 

VALUE 

SCHOOL.CLASS :* ('A* . 1 ); 
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Chapter 9 

Statements 


PASCAL provides several statements that control the actions performed in 
a program. This chapter presents information on each of these statements, 
organized as follows: 

• The compound statement 

• The assignment statement 

• The empty statement 

• Conditional statements: 

- CASE 

- IF-THEN|[-ELSE| 

• Repetitive statements: 

- FOR 

- REPEAT 

- WHILE 

• The WITH statement 

• The GOTO statement 

• The procedure call 

PASCAL statements are classified as either simple or structured. The 
simple statements are the assignment, empty, GOTO, and the procedure 
call. The structured statements are the compound, conditional, repetitive, 
and WITH statements. They enclose simple and structured statements that 
must be executed in order, repetitively, or when the specified conditions 
are met. 
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You can use a structured statement anywhere in a block that a simple 
statement is allowed; therefore, this manual uses the term "statement" to 
mean either a simple or a structured statement. 


9.1 The Compound Statement 

The compound statement groups a series of statements so that they can be 
executed sequentially as though they were a single statement. It has the 
syntax: 

BEGIN 

{statement};... 

END 

Statement 

Any simple or structured statement. 

A compound statement can combine any PASCAL statements, including 
other compound statements. The statements that make up the compound 
statement must be separated with semicolons. No semicolon is required 
between the last statement and the END delimiter; however, the examples 
in this manual show a semicolon before the END delimiter. This practice 
makes it easier to add new statements before the END at a later date. 

Examples of compound statements appear throughout this chapter. 


9.2 The Assignment Statement 

The assignment statement assigns a value to a variable or function identi¬ 
fier. It follows the form: 

identifier := expression 

identifier 

The name of a function or any variable except a file variable. 

expression 

A run-time expression whose type is assignment compatible with the type 
of the variable. 
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Note that the assignment operator is := in PASCAL. Do not confuse this 
operator with the equal sign ( = ). 

The value of the expression on the right of the operator establishes the 
value to be assigned to the variable on the left. 

You may not assign values to a variable of a record type with variants 
that was allocated with the NEW procedure (see Section 11.4.3); you may, 
however, assign values to a field of such a record variable. 

Examples 

1. X := 1; 

The variable X is assigned the value 1. 

2. T := A < B; 

The value of the Boolean expression A < B is assigned to the variable 
T. 

3. Vowel^Set := ['A'. 'E', 'I'. 'O'. 'U'] ; 

The set variable VoweL Set is assigned the set constructor shown. The 
base type of Vowel„Set must include the characters 'A', 'E', 'T, '0\ and 
'U'. 

4. My^ArrayCl] := My_Array[7] + Your_Array [14] ; 

The first component of My__Array is assigned the sum of the values of 
the seventh component of My„ Array and the fourteenth component of 
Your_ Array. 

5. Awardrec := NewWinner; 

Assume that Awardrec and New_Winner are record variables of 
assignment-compatible types. This example assigns the value of each 
field of New_Winner to the corresponding field of Awardrec. 
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9.3 The Empty Statement 

The empty statement causes no other action to occur than the advance¬ 
ment of program flow to the next statement. 

An empty statement can be represented by two consecutive semicolons. 
For example: 

BEGIN 

X := 10; 

Y := 20; 

Z[I] := 50; 

END; 

A common use of the empty statement appears in nested IF-THEN-ELSE 
statements (see Section 9.4.2). 


9.4 Conditional Statements 

A conditional statement causes a statement to be executed depending on 
the value of a controlling expression. PASCAL provides the CASE and IF 
statements. 


9.4.1 The CASE Statement 

The CASE statement causes one of several statements to be executed, 
depending on the value of an ordinal expression called the case selector. 
The CASE statement has the format: 

CASE case-selector OF 

{{case-label-list};...: statement};... 

I [[;I1 OTHERWISE 
{statement}; ... ]] 

C;]] 

END 
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case-selector 

An expression of an ordinal type. 

case-label-list 

One or more constant values of the same ordinal type as the case selector, 
separated by commas. 

Each case label corresponds to a statement that will be executed if the 
value of the case selector is equal to the case label. You may specify the 
case labels in any order within the case-label-list. Each case label can 
appear only once within a given CASE statement, but can appear in other 
CASE statements. 

At run time, the system evaluates the case-selector expression and chooses 
which statement to execute. If the value of the case selector does not 
appear in the case label list, the system executes the statement(s) in the 
OTHERWISE clause. If you omit the OTHERWISE clause, the value of the 
case selector must be equal to one of the case labels. 

Enabling case-selectors checking causes an error message to be produced 
at run time if the CASE statement fails to find an executable statement. 
When case-selectors checking is disabled, the result is undefined if the 
CASE selection fails and you have omitted an OTHERWISE clause. See 
Section 14.5, and the VAX PASCAL User's Guide. 

Examples 

1. CASE Age OF 

5,6 : IF Births Month > Sep 
THEN 

Grade := 1 
ELSE 

Grade := 0; 

7 : BEGIN 

Grade := 2; 

Reading-Skill := TRUE; 

END; 

8 : Grade := 3; 

END; 

At run time, the system evaluates the case selector Age and executes 
the corresponding statement. The value of Age must be equal to 5, 6, 
7, or 8. 
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2. CASE Age OF 

6,6 : IF Birth_Month > Sep 
THEN 

Grade :* 1 
ELSE 

Grade := 0; 

7 : BEGIN 

Grade := 2; 

Reading Skill TRUE; 

END; 

8 : GRADE := 3; 

OTHERWISE 

Grade := 0; 

Reading_Skill := FALSE; 

END; 

In this example, if the value of Age is not 5, 6, 7, or 8, the statements 
in the OTHERWISE clause are executed. 

3. CASE Alphabetic OF 

•A','E',.'O'.'U' : Alpha_Flag ;= Vowel; 

'Y' : AlphaFlag := Sometimes; 

OTHERWISE 

Alpha^Flag :« Consonant; 

END; 

This example assigns the value of Vowel, Sometimes, or Consonant to 
Alpha__Flag, depending on the value of the case selector Alphabetic. 


9.4.2 The IF Statement 

The IF statement tests an expression and performs a specified action if the 
result of the test is true. The ELSE clause is optional, and is only executed 
if the test condition is false. The IF statement has the form: 

IF expression 
THEN 

statementl 

[[ELSE 

statement21 

expression 

Any Boolean expression. 

statementl 

The statement to be executed if the value of the Boolean expression is 
TRUE. 
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statement2 

The statement to be executed if the value of the Boolean expression is 
FALSE. 

The THEN or ELSE clause can specify either a simple or structured 
statement. Note, however, that you must not place a semicolon between 
the word THEN and the THEN clause, or between the THEN clause and 
the word ELSE. 

The ELSE clause always modifies the closest IF-THEN statement. You 
should avoid nesting IF-THEN-ELSE statements together, as you may un¬ 
intentionally write statements that may not execute as you had intended. 
For example: 

IF A = 1 
THEN 

IF BOl 
THEN C := 1 
ELSE 

C := 0; 

Regardless of the format of this statement, PASCAL associates the ELSE 
clause with the statement IF B< > 1 THEN C:=l. Thus, if the test IF A=1 
is FALSE, no action is taken. To execute the ELSE clause when the test IF 
A=1 is FALSE, you could insert an empty statement, as follows: 

IF A * 1 
THEN 

IF B <> 1 
THEN 

C := 1 
ELSE 
ELSE 

C := 0; 

Note that the object of the first ELSE clause is empty. 

A semicolon preceding an ELSE clause terminates the IF statement and 
causes a compile-time error. For example: 

IF Age > Retire Age 
THEN 

Retired ;= TRUE; (♦ misplaced semicolon *) 

ELSE 

Years_Left := Retire.Age - Age; 

An error occurs when the reserved word ELSE is encountered because it is 
not a legal statement. 
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Examples 

1. IF Disease 
THEN 

WRITELN ('This person is sick.') 

ELSE 

WRITELN ('This person is healthy.'); 

This example prints a different line of text, depending on the value of 
the Boolean variable Disease. 

2. IF (A>B) AND (B>C) 

THEN 

D := A - C; 

If the values of both relational expressions are TRUE, D is assigned the 
value of A-C. As discussed in Section 7.3, PASCAL does not always 
evaluate all the terms of a Boolean expression if it can evaluate the 
entire expression based on the value of one term. Thus, if the value of 
one of the relational expressions is FALSE, the other expression may 
not be evaluated. 

3. IF Balance < 0.0 
THEN 

BEGIN 

WRITELN ('Overdrawn by ', ABS (Balance)); 

WRITELN ('Loan ot ', Loan, ' at ', Rate, 

' y, automatically deposited'); 

Balance Balance > Loan; 

Bill Amt := Loan ♦ (1 + Rate); 

END 

ELSE 

WRITELN ('No loan Issued this month '); 

WRITELN ('Balance is ', Balance); 

If the value of Balance is negative, the compound statement is executed 
to print two lines of notification, add a loan to Balance, and compute 
the amount of the bill for the loan. A zero or positive value for Balance 
results in a message stating that no loan was issued. The WRITELN 
procedure that prints the final balance is independent of the conditional 
statement and is always executed. 


9.5 Repetitive Statements 

Repetitive statements specify loops, that is, the repetitive execution of one 
or more statements. PASCAL provides three repetitive statements: FOR, 
REPEAT, and WHILE. 
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9.5.1 The FOR Statement 


The FOR statement specifies the repetitive execution of a statement based 
on the value of an automatically incremented or decremented control 
variable. It has the form: 

FOR control-variable := initial-value 



statement 

control’ variable 

The name of a previously declared variable of an ordinal type. 

initial-value 

An expression whose type is assignment compatible with the type of the 
control variable. 

final-value 

An expression whose type is assignment compatible with the type of the 
control variable. 

The control variable, the initial value, and the final value must all be of 
the same ordinal type. The repeated statements, called the loop body, 
must not change the value of the control variable. 

At run time, completion tests are performed before the FOR statement is 
executed. In the TO form, if the value of the control variable is less than 
or equal to the final value, the loop body is executed and the value of the 
control variable is incremented. When the value of the control variable is 
greater than the final value, execution of the entire loop is complete. 

In the DOWNTO form, if the value of the control variable is greater than 
or equal to the final value, the loop body is executed and the value of the 
control variable is decremented. When the value of the control variable is 
less than the final value, execution of the entire loop is complete. 

Because completion tests are performed before the statement is executed, 
some loop bodies are never executed. For example: 

FOR Control := N TO N+Q DO 

Week [Control] ;= Week [Control] Netpay; 

If the value of N+Q is less than the value of N (that is, if Q is negative), 
the loop body is never executed. 
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The value of the control variable is incremented or decremented in 
units of the appropriate type. For control variables of type INTEGER or 
UNSIGNED, one is added or subtracted to the value upon each iteration. 
For other types, the control variable takes on the successor (or prede¬ 
cessor) value of the type. For example, the value of a control variable 
of the subrange type 'A'..'Z' is incremented (or decremented) to the next 
character value each time the loop is executed. 

If the FOR loop terminates normally (that is, if the loop exits because it is 
completed and not because of a GOTO statement), the value of the control 
variable is left undefined. You cannot assume that the control variable 
retains a value. Therefore, you must assign a new value to the control 
variable before you use it elsewhere in the program. However, if the FOR 
loop is terminated by a GOTO statement, the control variable retains the 
last value assigned to it and can be used outside the loop. 

Examples 

1. FOR N := Lowbound TO Highbound DO 

Sum := Sum ♦ Int-Array[N]; 

This FOR loop computes the sum of the components of Int—Array with 
index values from Lowbound through Highbound. 

2. FOR Year := 1899 DOWNTO 1801 DO 

IF (Year MOD 4) = 0 
THEN 

WRITELN (Year:4. ' is a leap year'); 

The DOWNTO form is used here to print a list of all the leap years in 
the nineteenth century. 

3. FOR I := 1 TO 10 DO 

FOR J := 1 TO 10 DO 
A[I,J] := 0; 

This example shows how you can nest FOR loops. For each value of 
I, the executing program steps through all 10 values of the array J and 
assigns the value 0 to each component. 
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4. FOR Employee := 1 TO N DO 
BEGIN 
Hrs := 0; 

FOR Day Mon TO Fri DO 
IF NOT Sick[Employee.Day] 

THEN 

Hrs := Hrs + 8; 

Pay[Employee] := Wage[Employee] * Hrs; 

END; 

This example combines structured statements. The inner FOR state¬ 
ment computes the number of hours each employee worked from 
Monday through Friday. The outer FOR statement resets the number 
of hours to 0 for each employee and computes each person's pay as 
the product of Wage and Hrs. 


9.5.2 The REPEAT Statement 

The REPEAT statement executes one or more statements until a specified 
condition is true. It has the form: 

REPEAT 

{statement};... 

UNTIL expression 

expression 

Any Boolean expression. 

The syntax of the REPEAT statement allows you to combine several 
statements between the reserved words REPEAT and UNTIL without 
BEGIN/END delimiters. The expression is evaluated after the statements 
are executed; therefore, the loop body is always executed at least once. 

Example 

REPEAT 

READ (X); 

IF (X IN ['O'..'9']) 

THEN 

BEGIN 

Digit-Count := Digit-Count + 1; 

Digit-Sum := Digit-Sum + ORD (X) - ORD ('0'); 

END 

ELSE 

Char-Count := Char-Count+1; 

UNTIL EOLN (INPUT); 
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Assume that the variable X is of type CHAR and the variables Digit _ 
Count, Digit __Sum, and Char_Count denote integers. The example 
reads a character (X). If the value of X is a digit, the count of digits is 
incremented by one and the sum of digits is increased by the value of X, 
as computed by the ORD function. If the value of X is not a digit, the 
variable CharjCount is incremented by one. The REPEAT loop continues 
processing characters until it reaches an end-of-line condition. 


9.5.3 The WHILE Statement 

The WHILE statement executes one or more statements while a specified 
condition is true. It has the form: 

WHILE expression DO 
statement 

expression 

Any Boolean expression. 

The WHILE statement causes the statement following the word DO to 
be executed while the value of the conditional expression is TRUE. The 
expression is evaluated before the statement is executed. If the value of 
the expression is initially FALSE, the statement is never executed. Iteration 
of the statement must eventually change the value of the expression; 
otherwise, the result is an infinite loop. 

Unlike the REPEAT statement, the WHILE statement controls the exe¬ 
cution of only one statement. Hence, to execute a group of statements 
repetitively, you must use a compound statement. Otherwise, only the 
single statement immediately following the word DO is repeated. 

Examples 

1. WHILE NOT EOF (Filel) DO 
READLN (Filel); 

This Statement skips to the end of Filel. 
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2. WHILE NOT EOLN (INPUT) DO 

BEGIN 
READ (X); 

IF NOT (X IN ['A'..'Z'. 'O'..'9']) 

THEN 

Err := Err + 1; 

END; 

This example reads an input character from the current line. If the 
character is not a digit or letter, the error count (Err) is incremented by 
one. 

3. Sum := 0; 

Ntests := 1; 

Avg := 100; 

WHILE (Avg >= 90) AND (Ntests <= Maxtests) DO 
BEGIN 

Sum := Sum + Test[Ntests]; 

Avg Sum DIV Ntests; 

Ntests ;= Ntests + 1; 

END; 

IF Avg < 90 
THEN 

WRITELN ('Your average dropped below 90 as of test ', 

Ntests:5); 

After initializing Sum to 0, the WHILE loop repeatedly calculates a 
student's average test score. If the average score falls below 90, the 
calculations cease and an informational message is printed. If the 
average never falls below 90, calculations continue until Ntests is 
greater than Maxtests; no message is printed. 


9.6 The WITH Statement 

The WITH statement provides an abbreviated notation for references to 
the fields of a record variable. It follows the form: 

WITH {record-variable},... DO 
statement 

record- variable 

The name of the record variable to which the statement refers. 
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The WITH statement allows you to refer to the fields of a record by 
their names alone, rather than by the record.field-identifier syntax. In 
effect, the WITH statement opens the scope of the field identifiers so that 
references to field identifiers alone (not prefixed by the record name) are 
unambiguous. 


NOTE 

When a variable or one of its components is accessed by a 
WITH statement, the reference lasts throughout the execution 
of the statement. 

Specifying more than one record variable has the same effect as nesting 
WITH statements. If the records themselves are nested, their names 
must appear in the order in which they were nested in the record type 
definition. If the records are not nested, their names can appear in any 
order. Thus, the following two statements are equivalent: 

WITH Cat, Dog DO 

Bills := Bills + Catvet + Dogvet; 

WITH Cat DO 

WITH Dog DO 

Bills := Bills + Catvet Dogvet; 

Note that if the record Cat includes the nested record Dog, you must 
specify Cat before Dog. 

Examples 

1. VAR 

Taxes : RECORD 

Gross : REAL; 

Net : REAL; 

Bracket ; REAL; 

Itemized : BOOLEAN; 

Paid : REAL; 

END; 


WITH Taxes DO 

IF Net < 10000.0 
THEN 

Itemized := TRUE; 

This Statement tests the value of the field Taxes.Net and sets 
Taxes.Itemized to TRUE if the value of Taxes.Net is less than 10000.0. 
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2. TYPE 

Name = VARYING[20] OF CHAR 
Date = RECORD 

Month : (Jam, Feb, Mar, Apr, May, Jun, 
Jul, Aug, Sep, Oct, Nov, Dec); 
Day : 1..31; 

Year : INTEGER; 

END; 

VAR 

Hosp : RECORD 

Patient : Name; 

Birthdate : Date; 

END; 


WITH Hosp, Birthdate DO 

BEGIN 

Patient := 'Thomas Jefferson'; 

Month := Apr; 

Day := 13; 

Year := 1743; 

END; 

This example shows how you can use the WITH statement to assign 
values to the fields of a record. The WITH statement specifies the 
names of the record variables Hosp and Birthdate. The record names 
must be in order; that is, Hosp must precede Birthdate. The assignment 
statements need only specify the field names; for example. Patient 
instead of Hosp.Patient, Month instead of Hosp.birthdate.Month, and 
so forth. 


9.7 The GOTO Statement 

The GOTO statement causes an unconditional branch to a statement 
prefixed by a label. It has the form: 

GOTO label 

label 

An unsigned decimal integer or symbolic constant that represents a 
statement label. 
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Upon execution of the GOTO statement, program control shifts to the 
statement with the specified label. The statement can be any PASCAL 
statement, including an empty statement. 

The GOTO statement must be within the scope of the label declaration. 

A GOTO statement that is outside a structured statement cannot jump 
to a label within that structured statement. A GOTO statement within a 
routine can branch to a labeled statement in an enclosing block only if the 
labeled statement appears in the block's outermost level of nesting; that is, 
the labeled statement cannot occur within a structured statement. 

Example 

FOR I := 1 TO 10 DO 
BEGIN 

IF RealArray[I] = 0.0 
THEN 

BEGIN 

Result := 0.0; 

GOTO 10; 

END; 

Result := Result + 1.0/Real_Array[I]; 

END; 

10: Invertsum := Result; 

This example shows how you can use the GOTO statement to exit from 
a loop. The loop computes the sum of the inverses of the components 
of the variable Real_Array. If the value of one of the components is 0.0, 
however, the sum is set to 0.0 and the GOTO statement forces an exit 
from the loop. 


9.8 The Procedure Call 

A procedure call specifies the actual parameters to be passed to a routine 
and executes the routine. A procedure call has the format: 

routine-identifier [[ {actual-parameter}, . . .]] 

routine^identifier 

The name of a procedure or function. 

actual-parameter 

A run-time expression of an appropriate type, or the name of a procedure 
or function. 
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The procedure call associates the actual parameters in the list with the 
formal parameters in the procedure declaration. It then transfers control to 
the procedure. When the procedure has finished executing, control returns 
to the next executable statement following the procedure call. 

The formal parameter list in the procedure declaration determines the 
possible contents of the actual parameter list. Depending on the types of 
the formal parameters, the actual parameters can be constants, variables, 
expressions, procedure identifiers, or function identifiers. 

In VAX PASCAL, a function may be called using the procedure call 
syntax. In this case, the value returned by the function is ignored. See 
Chapter 10, Procedures and Functions, for a complete discussion of 
procedures and functions. 

Examples 

1. Tollbooth (Change. 0.25, Lane[l]); 

This Statement calls the procedure Tollbooth, and passes the variable 
Change, the real constant 0.25, and the first component of the array 
Lane as actual parameters. 

2. Taxes (Rate*Income, 'Pay'); 

This Statement calls the procedure Taxes, with the expression 
Rate*Income and the string constant 'Pay' as actual parameters. 

3. End-Process; 

This Statement calls the procedure End—Process, which has no param¬ 
eters. 
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Chapter 10 

Procedures and Functions 


When designing a program that solves a complex problem, you may find 
it convenient to break down the problem into a collection of simpler 
subproblems. You can develop each subproblem independently and, once 
you have debugged it, you can be sure that it will execute successfully. In 
PASCAL, you can segment programs in this way by writing procedures 
and functions. 

Procedures and functions, collectively called routines in this manual, 
have similar structures and restrictions. You can include routines in 
the main program, or you can compile them separately from the main 
program in modules. A VAX PASCAL program can include user-written 
routines; external routines such as VAX/VMS system services, VAX Run¬ 
Time Library routines, and routines written in other VAX languages; and 
predeclared routines. External routines are discussed in greater detail 
in the VAX PASCAL User's Guide; predeclared routines are described in 
Chapter 11, Predeclared Routines. 

This chapter is organized as follows: 

• An overview of the concepts of PASCAL routines 

• The structure of a routine heading 

• The kinds of formal parameters 

• The purposes of routine directives 

• The rules for the association of actual and formal parameters in routine 
calls 
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10.1 Concepts of Routines 


The basic algorithm for a program can usually be divided into relatively 
simple, repetitive tasks. In PASCAL, you can code each task separately as 
a routine; that is, as either a procedure or a function. This manual uses 
the term routine to apply to both procedures and functions. 

Both procedures and functions associate a set of statements with an 
identifier; the statements are executed as a group when the routine is 
called from the executable section of the main program or from another 
routine. In addition, a function returns a value of its declared type to the 
calling program or routine. You may call a function anywhere that an 
expression of its result type is allowed. 

To declare a routine, you must supply the routine's heading and either 
a block or a directive in a FUNCTION or PROCEDURE declaration 
section. Normally, you must declare a routine before you can call it from 
an executable section; however, the FORWARD directive allows you to 
escape this restriction. 

The Heading 

The heading identifies the routine, for example, PROCEDURE Read— 

Ints. The heading may include a list of other identifiers, called formal 
parameters, if the routine needs to exchange data with another program or 
routine. For example 

PROCEDURE Read IntB (VAR A ; List; 

VAR I : INTEGER). 

A routine exchanges data with the main program and with other routines 
by means of formal parameters. If you use formal parameters in the 
routine, they must first be declared in the routine heading. At run time, 
a formal parameter receives a value from a parameter in the routine call. 
This parameter (in the routine call) is called an actual parameter. You can 
call a routine several times with different actual parameters, for example. 
Read Ints (Arr, Int -Count). The compiler checks every call to ensure that 
the types of the actual and formal parameters are compatible. 

The Body 

The body (or block) consists of a declaration section (which may include 
nested routine declarations), and a sequence of statements which defines 
the executable set of instructions. The body may also be a directive which 
supplies information about forward-declared and external routines. 
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The Scope of identifiers 

The scope of an identifier is the part of the program in which the identifier 
is accessible. In PASCAL, the scope of a label or an identifier (which 
represents a symbolic constant, variable, type, procedure, or function) is 
the block in which it is defined or declared, minus any nested blocks that 
redeclare the same label or identifier. 

The declaration section in the main program block introduces identifiers 
that are accessible in the main program and in all nested routines. The 
declaration sections in routine blocks specify local identifiers. You can use 
a local identifier in the routine that declares it and in all nested routines. 

In a routine, you can redeclare an identifier that has been declared in an 
outer block; the identifier always refers to the declaration of most limited 
scope. See Section 10.3.8 for a complete detailed example of scope. 


10.2 Routine Headings 

To declare a routine, you supply the routine's heading and either a block 
or a directive in a PROCEDURE or FUNCTION declaration section. 
Normally, you must declare a routine before you can call it from an 
executable section. The FORWARD directive, outlined in Section 10.4.1, 
allows you to escape this restriction. 

The routine heading provides all the information necessary to determine 
whether the actual parameters in a call to the routine can legally be passed 
to the formal parameters in the declaration. Note that a procedure can 
have as many as 255 formal parameters; depending on their result types, 
certain functions are limited to 254 (see the VAX PASCAL User's Guide for 
details). 


10.2.1 Declaring a Procedure 

To declare a procedure, specify the procedure heading and block in the 
declaration section. You can declare a procedure in the main program or 
in another routine. The format of a procedure declaration is: 

[[attribute-listI PROCEDURE procedure-identifier 
If ormal-parameter-listll ; 

Ideclaration-section]] 

BEGIN 

{statement};... 

END; 
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attribute-list 

One or more identifiers that provide additional information about the 
procedure (see Chapter 14, Attributes). 

procedure-identifier 

The identifier that names the procedure. 

formal-parameter-list 

The identifiers and types of the formal parameters and optionally the 
mechanism specifiers and attribute lists (see Section 10.3). 

declaration-section 

The declaration section defines symbolic constants and user-created 
types, and declares labels, variables, procedures, and functions (see 
Chapter 8, The Declaration Section, for more information). 

Statements in a procedure block are identical to statements in a main 
program block with the following exceptions: 

• The declaration section cannot contain value initializations 

• The procedure block ends with an END followed by a semicolon rather 
than by a period 

The block that follows the heading may contain an optional declaration 
section to declare any data items that are local to the procedure, and 
an executable section, which contains the statements that perform the 
procedure's actions. 

You cannot redeclare formal parameter names as local identifiers in a 
procedure. 

You may include a directive following the heading that declares that 
the procedure is a FORWARD, FORTRAN, or EXTERNAL routine (see 
Section 10.4). 
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10.2.2 Invoking a Procedure 


A procedure is executed as a result of a procedure call. Note that the 
procedure call simply consists of the procedure name and optionally, a 
parameter list. If the procedure has a formal parameter list, you must 
include a parameter list when calling the procedure. For example, to 
execute the procedure Print Data, you specify its name as a procedure 
call: 

Print Data; 

Note that the procedure call is itself a statement. If procedure Print Data 
had a formal parameter list 

Print Data (VAR A :INTEGER; Z :REAL); 

You could Specify the call to procedure Print „ Data as 

Print Data (L, 8.29); 

The parameters in the procedure call are the actual parameters; they 
correspond to the formal parameters in the procedure declaration. 


10.2.3 Declaring a Function 

To declare a function, you specify its heading and block in a FUNCTION 
part of the declaration section. The format of a function declaration is 
identical to that of a procedure, except that it begins with the reserved 
word FUNCTION (instead of PROCEDURE) and it includes the function 
result type. Its format is: 

lattribute-listH FUNCTION function-identifier 
If ormal-parameter-list]] 

lattribute-listU result-type-identifier; 
Ideclaration section]] 

BEGIN 

{statement};... 

END; 
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attribute-list 

One or more identifiers that provide additional information about the 
function or function result (see Chapter 14, Attributes). 

function-identifier 

The identifier that names the function and the function result. 

formal-parameter-list 

The identifiers and types of the formal parameters, and optionally the 
mechanism specifiers and attribute lists (see Section 10.3). 

result- type-identifier 

The type identifier of the function result, which can denote any type 
except a file type or a structured type with a file component. 

declaration-section 

The declaration section defines symbolic constants and user-created 
types, and declares labels, variables, procedures, and functions (see 
Chapter 8, The Declaration Section, for more information). 

Statements in a function block are identical to statements in a main 
program block, with the following exceptions: 

• The declaration section cannot usually contain value initializations 

• The function block ends with an END followed by a semicolon rather 
than by a period 

The block that follows the heading may contain an optional declaration 
section to declare any data items that are local to the function and an exe¬ 
cutable section, which contains the statements that perform the function's 
actions. 

You cannot redeclare formal parameter names as local identifiers in a 
function. 

A function must include at least one statement that assigns a value of the 
function result type to the function identifier. For instance, in the example 
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FUNCTION Factor 

(Dividend. Divisor : INTEGER) 
: BOOLEAN; 

BEGIN (* Function Factor *) 


Factor := (Dividend MOD Divisor) < 0; 

END; (* Function Factor *) 

In the Function Divides, which returns a Boolean result, if the Boolean 
expression, (Dividend MOD Divisor) < 0 is TRUE, the value of TRUE 
will be assigned to the function identifier. Otherwise, FALSE will be 
assigned to the function identifier. If a value is not assigned to the 
function identifier during execution of the function, the function result will 
be undefined. 

You may include a directive following the heading that declares that 
the function is a FORWARD, FORTRAN, or EXTERNAL routine (see 
Section 10.4). 


10.2.4 Invoking a Function 

A function is called and executed as the result of a function designator. A 
function designator is an expression; thus it can be used wherever other 
expressions can be used. 

You can use the following statement to call a function named Divides: 

IF Divides (Numl, N\im2) 

THEN 

WRITELN (Nuinl:4, ' is a multiple of N\im2:4) 

ELSE 

WRITELN (Numl:4. ' is not a multiple of Num2:4); 

In this statement, the following expression is a function designator: 

Divides (Numl, Num2) 


Procedures and Functions 10-7 



10.3 Formal Parameters 


Formal parameters (also called arguments) can be divided into three 
general categories: input parameters, output parameters, and routine 
parameters. A routine uses input parameters to obtain values; it uses 
output parameters to return values. A function result is simply a special 
case of an output parameter. 

Input and Output Parameters 

Some parameters act as both input and output parameters: the routine 
takes their values as inputs, modifies the values, and returns the changed 
values. In PASCAL, parameters used solely to supply input data are called 
value parameters (see Section 10.3.1); those used to return output values 
are called variable parameters (see Section 10.3.2). 

Routines as Parameters 

Sometimes a routine needs to use another function or procedure in order 
to perform its task. In PASCAL, a call to a routine can supply the name 
of another routine as a formal parameter (see Section 10.3.3). 

When two routines exchange parameters, the calling routine must supply 
the data that the called routine expects. When declaring or calling routines 
not written in PASCAL, you may need to state an explicit mechanism for 
passing parameters. VAX PASCAL includes a set of mechanism specifiers 
for declaring foreign (non-PASCAL) parameters (see Section 10.3.4). 
Foreign parameters can be used as input, output, or routine parameters. 

A formal parameter list may be composed of one or more of the five 
kinds of parameter sections listed below. A parameter section introduces 
one or more formal parameter identifiers and indicates how they will be 
interpreted within the routine. 

• Value parameters—introduced without a reserved word 

• Variable parameters—introduced by the reserved word VAR 

• Procedure parameters—introduced by the reserved word PROCEDURE 

• Function parameters—introduced by the reserved word FUNCTION 

• Foreign parameters—introduced by a mechanism specifier (%REF, 
%IMMED, %DESCR, or %STDESCR) or by a passing mechanism 
attribute ([REFERENCE], [IMMEDIATE]) 
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The following sections describe the semantics of parameter passing in 
PASCAL and the use of each kind of parameter. Conformant schemas 
(Section 10.3.5) and default parameters (Section 10.3.6) are also described. 


10.3.1 Formal Value Parameters 

A formal value parameter represents a local variable within the called 
routine. An actual value parameter is passed to the called routine. The 
called routine uses a copy of the actual value parameter to initialize the 
formal parameter. The copy is not retained when control returns to the 
calling block. Therefore, if the called routine assigns a new value to the 
formal parameter, the change is not reflected in the calling block. 

When you do not include a reserved word before the name of a formal 
parameter, you automatically cause PASCAL to use value semantics to 
pass data to that parameter. A value parameter follows the form: 

{identifier}, . . . : Eattribute-list]] 

{ type-identifier 1 
conformant-schema j 

[[: = Imechanism-specifierl default]] ; 

identifier 

The name of the formal parameter. Multiple identifiers must be separated 
with commas. 

attribute-Ust 

One or more identifiers that provide additional information about the 
formal parameter (see the text below and Chapter 14, Attributes). 

type-identifier 

The type identifier of the parameters in this section. 

conformant-schema 

The type syntax of a conformant array or a conformant VARYING param¬ 
eter (see Section 10.3.5). 

mechanism-specifier 

The mechanism by which a default value is to be associated with the 
formal parameter. Note that it can only be used on an external routine 
(see Sections 10.3.4 and 10.3.6). 
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default 

A default value for the parameter. Note that it can only be used on an 
external routine (see Section 10.3.6). 

Any attributes associated with a formal parameter become attributes of 
the local variable. They do not affect the values that can be passed to 
the parameter; they affect the behavior of the formal parameter only 
within the routine block. When a formal parameter has the UNSAFE 
attribute, the types of the actual parameters passed to it are not checked 
for compatibility (see Section 14.22). 

The following are examples of formal value parameter sections in routine 
headings: 

PROCEDURE Alpha 

(A. B : INTEGER; 

C : CHAR); 

FUNCTION Factor 

(Dividend, Divisor : INTEGER) 

; BOOLEAN; 


10.3.2 Formal Variable Parameters 

A formal variable parameter represents another name for a variable in 
the calling block. It is preceded by the reserved word VAR. The routine 
directly accesses the actual parameter that corresponds to the formal 
variable parameter, rather than accessing a copy of it. Thus, the routine 
can assign a new value to the formal parameter during execution, and the 
changed value is reflected immediately in the calling block. 

PASCAL uses variable semantics to pass data to a formal parameter, often 
called a formal VAR parameter, and follows the form: 

VAR {identifier}, . . . : [[attribute-listII 

{ type-identifier 1 
conformant-schema / 

[[: = [[mechanism-spec if ierl default]] ; 

identifier 

The name of the formal parameter. Multiple identifiers must be separated 
with commas. 

attribute-list 

One or more identifiers that provide additional information about the 
formal parameter (see Chapter 14, Attributes). 
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type-identifier 

The type identifier of the parameters in this parameter section. 

conformant-schema 

The type syntax of a conformant array or a conformant VARYING param¬ 
eter (see Section 10.3.5). 

mechanism-specifier 

The mechanism by which a default value is to be associated with the 
formal parameter. Note that it can only be used on an external routine 
(see Sections 10.3.4 and 10.3.6). 

default 

A default value for the parameter. Note that it can only be used on an 
external routine (see Section 10.3.6). 

The following examples illustrate the formal VAR parameter sections of 
routine headings: 

PROCEDURE Read Write 
(VAR A : List); 

FUNCTION Counter 

(VAR Instring, Outstring : VARYING[String.Size] OF CHAR; 

VAR Valid : BOOLEAN) 

: INTEGER; 

Because no copy is made of the actual parameter, you can save storage 
space by using formal VAR parameters instead of value parameters. 

This technique can be especially helpful when you are passing actual 
parameters that require large amounts of storage. However, to use a VAR 
parameter as an efficient substitute for a value parameter: 

• You must not modify the actual parameter. 

• You should not refer to the actual parameter by more than one name 
within the same block. 

The following example illustrates how passing a large array to a formal 
VAR parameter differs from passing it to a value parameter. 

TYPE 

Big Array = ARRAY[0..10000] OF REAL; 

PROCEDURE Reverse 

(VAR Inarr, Outarr : Big Array); 

VAR 

I. J : INTEGER; 
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BEGIN 
J := 0; 

FOR I := 10000 DOWNTO 0 DO 
BEGIN 

OutarrCl] :* Inarr[J] ; 

J := J 1; 

END; 

END; 

VAR 

Al, A2 : Big Array; 


Reverse (Al, A2); (♦ Would execute successfully *) 

Reverse (Al, Al); (* Would fail ♦) 

The procedure Reverse is designed to reverse the order of the components 
of the array variable Inarr and write them to the array variable Outarr. 
You can save storage space by declaring Inarr and Outarr as formal VAR 
parameters, thus preventing the compiler from making copies of each 
10,000-component array. The first call to Reverse illustrates this method. 

In the second call to Reverse, however, the same array variable (Al) 
is passed to both Inarr and Outarr. Since Inarr and Outarr are formal 
VAR parameters, the procedure accesses the actual parameter Al directly: 
Reverse actually modifies the input values as it writes the reversed com¬ 
ponents back into Al. Thus, the second call shown in this example would 
fail to execute as expected. 


10.3.3 Formal Routine Parameters 

In the event that you wish to write a routine which invokes another 
routine whose effect is not determined until the program is executed, 
routine parameters may be used. To declare a procedure or a function as a 
formal parameter to another routine, you must include a complete routine 
heading in the formal parameter list (see Section 10.2 for the syntax of a 
routine heading). You can also associate a foreign mechanism specifier 
and a default value with a formal procedure or function parameter, as 
described in Section 10.3.6. 

The following examples show formal routine parameter sections in proce¬ 
dure and function declarations: 
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PROCEDURE Apply 

(FWCTION Operation (Left. Right : REAL) : REAL; 

VAR: Result : REAL); 

FUNCTION Copy 

(PROCEDURE Get. Char (VAR C : CHAR); 

PROCEDURE Put Char (I : CHAR)) 

: BOOLEAN; 

The identifiers listed as formal parameters to a formal procedure or 
function parameter are not accessible outside the routine declaration. 

They merely indicate the number and kind of actual parameters necessary. 
You refer to these identifiers only when you use nonpositional calling 
syntax to call a routine parameter. (Section 10.5.2 describes nonpositional 
syntax.) 

In the above example, the formal parameter list of Get Char informs the 
compiler that Copy must pass one character parameter to Get Char using 
variable semantics. Copy does not refer explicitly to the formal parameter 
C unless it calls Get_Char using nonpositional syntax. 


10.3.4 Foreign Mechanism Specifiers on Formal Parameters 

When declaring PASCAL routines, you specify the semantics (value or 
variable) by which a formal parameter manipulates an actual parameter; 
the compiler is responsible for choosing the appropriate mechanism by 
which to pass the actual parameter. However, when declaring an external 
routine (one written in a language other than PASCAL) that is called by a 
PASCAL routine, you must specify not only the correct semantics but the 
correct mechanism as well. 

VAX PASCAL provides the foreign mechanism specifiers %IMMED, 
%REF, %DESCR, and %STDESCR, which can precede a formal parameter 
in the declaration of an external routine. If the formal parameter does not 
represent a routine, the mechanism specifier must precede the parameter 
name. If the formal parameter represents a routine, the specifier must 
precede the reserved word PROCEDURE or FUNCTION in the parameter 
declaration. 

In addition, it is possible to use the passing mechanism attributes 
[IMMEDIATE] or [REFERENCE] in a formal parameter's attribute list 
to obtain the same behavior as %IMMED or %REF, respectively. 
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You can also place a mechanism specifier before the name of an actual 
parameter (see Section 10.5.7) however, the passing mechanism attributes 
are only valid on formal parameters, and thus cannot be used on actual 
parameters. 

A mechanism specifier or passing mechanism attribute forces the use of 
mechanisms defined in the VAX Procedure Calling Standard and also 
implies certain semantics. The passing of an expression to a foreign 
mechanism parameter implies foreign value semantics: the calling block 
makes a copy of the actual parameter's value and passes this copy to the 
called routine. The copy is not retained when control returns to the calling 
block. Note that foreign value semantics differs from value semantics in 
that the calling block, not the called routine, makes the copy. 

The passing of a variable to a foreign mechanism parameter (except a 
parameter with the %IMMED or [IMMEDIATE] specifier) implies foreign 
variable semantics: the variable itself is passed. A compile-time warning 
occurs if the compiler must convert the value of an actual parameter 
variable to make it match the type of a foreign mechanism parameter. In 
that case, the compiler passes a copy of the converted value by foreign 
value semantics, using the specified mechanism. You can eliminate this 
warning by enclosing the actual parameter variable in parentheses; by 
doing so, you prevent the compiler from interpreting the actual parameter 
as a variable. The compiler takes the same action, whether or not it 
produces a warning message. 

Mechanism specifiers on formal parameters produce the following results: 

• A %REF or [REFERENCE] formal parameter requires actual param¬ 
eters to be passed using the by-reference mechanism. %REF or 
[REFERENCE] implies variable semantics unless the actual parame¬ 
ter is an expression; in that case, it implies foreign value semantics. 

• A %IMMED or [IMMEDIATE] formal parameter requires actual pa¬ 
rameters to be passed using the by-immediate-value mechanism and 
always implies value semantics. %IMMED or [IMMEDIATE] cannot be 
used on formal parameters of type VARYING, or on conformant array 
and conformant VARYING parameters (see Section 10.3.5). 

• A %DESCR formal parameter requires actual parameters to be passed 
using the by-descriptor mechanism and interprets the semantics as 
%REF or [REFERENCE] does. (You may also use CLASS attributes; see 
Section 14.16 for more information.) 
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• A %STDESCR formal parameter requires actual parameters to be 

passed using the by-string-descriptor mechanism. An actual parameter 
variable of type PACKED ARRAY OF CHAR implies variable seman¬ 
tics. An actual parameter expression of either type PACKED ARRAY 
OF CHAR or type VARYING OF CHAR implies foreign value seman¬ 
tics. You cannot use %STDESCR on formal procedure and function 
parameters. (You may also use CLASS attributes; see Section 14.16 for 
more information.) 

Note that because the semantics is implicit in the mechanism, a formal 
parameter cannot be declared with both the reserved word VAR and a 
mechanism specifier. 

As described in Section 10.5.7, the VAX PASCAL compiler checks for type 
compatibility when an external routine is called. Howevei^ at the time of 
the declaration, a formal parameter passed by immediate value that does 
not represent a routine is checked to ensure that it can be stored in 32 
or fewer bits. A formal parameter passed by immediate value that does 
represent a routine must be declared with the UNBOUND attribute (see 
Chapter 14, Attributes). 

The VAX PASCAL User's Guide provides further information about the 
use of foreign mechanism specifiers. The VAX/VMS Introduction to 
System Routines defines the VAX Procedure Calling Standard and explains 
descriptor formats. 


10.3.5 Conformant Schemas 

Some programming applications require general routines that can process 
arrays with potentially different bounds, or character strings with poten¬ 
tially different maximum lengths. Under PASCAL'S rules of type checking, 
you would not easily be able to declare the type of such a parameter. VAX 
PASCAL, however, provides conformant array and conformant VARYING 
schemas. 

A conformant schema is a syntax that represents a set of types that are 
identical except for their bounds. The bounds of a conformant parameter 
are determined each time a corresponding actual parameter is passed. The 
bounds of an actual parameter are available within the routine through 
identifiers declared in the schema. A conformant schema can appear only 
within a formal parameter list. 
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You can use conformant schemas when declaring value, variable, and 
foreign mechanism parameters. When you use a conformant schema 
instead of a type identifier in a formal parameter declaration, a call to 
the routine can provide arrays and VARYING strings of different sizes, 
within the bounds specified by the schema. For example, you could 
write a procedure that finds the minimum, maximum, and average of 
the components of a one-dimensional array of integers. Similarly, you 
could write a function that returns the number of times one string occurs 
within another. On each call to such routines, the bounds of the formal 
parameters would be equal to those of the actual parameter. 

Conformant Array Schema 

ARRAY[{lower-bound-identifier..upper-bound-identifier: 
lattribute-listll index-type-identifier};...] 

OF lattribute-listl 

{ type-identifier 1 
conformant-schema J 

PACKED ARRAY[lower-bound-identifier..upper-bound-identifier: 
[[attribute-list]] index-type-identifier] 

OF [[attribute-listI type-identifier 

lower-bound-identifier 

An identifier that represents the lower bound of the conformant array's 
index. 

upper-bound-identifier 

An identifier that represents the upper bound of the conformant array's 
index. 

attribute-list 

One or more identifiers that provide additional information about the 
conformant array (see Chapter 14, Attributes). 

index-type-identifier 

The type identifier of the index, which must denote an ordinal type. 

type-identifier 

The type identifier of the array components, which can denote any type. 
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Note that to specify the range and type of the index, you must use 
type identifiers that represent predefined or user-defined ordinal types. 
The identifiers that represent the index bounds can be thought of as 
READONLY value parameters, implicitly declared in the procedure 
declaration. Unless the conformant schema is packed, the component can 
be either a type identifier or another conformant schema; therefore, only 
the last dimension of a conformant schema can be packed. 

Conformant VARYING Schema 

VARYING[upper-bound-identifier] OF lattribute-listll CHAR 

attribute-list 

One or more identifiers that provide additional information about the 
conformant VARYING string (see Chapter 14, Attributes). 

upper-bound-identifier 

An identifier that represents the upper bound of the conformant 
VARYING string's index. The type of the upper-bound's-identifier is, 
by default, integer. 

The upper bound identifier specifies the maximum length of the VARYING 
string and must denote an integer. You can use the upper bound identifier 
in the body of the routine as a READONLY value parameter. The lower 
bound, which you do not declare, is always zero. 

When you pass a conformant VARYING string expression to a value 
parameter, the length of the actual parameter's current value parameter 
(not its declared maximum length) becomes both the current length 
and the maximum length of the formal parameter. When you pass a 
conformant VARYING string variable to a VAR parameter, the declared 
maximum length of the actual parameter becomes the maximum length of 
the formal parameter. 

Two conformant schemas (array or VARYING) are equivalent if they 
have indexes of the same ordinal type and components that either are 
structurally compatible or are themselves equivalent conformant schemas. 
They must also have the same number of dimensions. Finally, either both 
must be packed or both unpacked. 
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Examples 

1. TYPE 

Workdays = 1..31; 

Feb.Days = 1..28; 

Mar.Days = 1..31; 

PROCEDURE Inventory 

(VAR Amt.Sold : ARRAY[First.Day..Last.Day : Workdays] OF INTEGER); 

The formal parameter Amt_Sold can have index values from 1 to 31 
to indicate the number of workdays in each month. Thus, an actual 
parameter passed to Amt_Sold could be an array whose index type 
is either Feb—Days or Mar_Days. The procedure could then sum the 
components of Amt_Sold and return the monthly inventory total to 
the calling block. 

2. TYPE 

Level.Range * 1..6; 

Nclasses * 1..8; 

Nstudents = 1..40; 

Names * PACKED ARRAY[1..36] OF CHAR; 

PROCEDURE Student.Count 

(School : ARRAY[Grade.Low..Grade.High : Level.Range; 

Unlts.Low..Units.Hlgh : Nclasses; 

Pupils.Min..Pupils.Max : Nstudents] 

OF Names); 

This example declares School as a three-dimensional conformant array 
parameter. Note that it uses the abbreviated syntax for specifying the 
index type of a multidimensional array. Each array passed to School 
could contain the names of all the students in a particular elementary 
school. The indexes of the array denote the number of grades in the 
school, the number of classes at each grade level, and the number of 
students in each class. 

3. PROCEDURE Dashed.Line 

(VAR String : VARYING[Len] OF CHAR); 

In this example, note that Len is not a previously declared identifier but 
is instead an additional implicit parameter defined by the procedure 
declaration. The upper bound of the conformant parameter String is 
established by the declared maximum length of the actual parameter 
passed to it when the procedure Dashed_Line is called. 
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10.3.6 Default Formal Parameters 


When writing a routine, you can sometimes assume that every call to the 
routine will supply the same value for a particular parameter. If you were 
able to specify that value as a default for the formal parameter, then you 
would need to pass an actual parameter only if you wanted to supply a 
different value. 

VAX PASCAL allows you to associate a formal parameter with its default 
value when you declare it; to do so, you append information to the 
parameter declaration by using the following format: 

:= Imechanism-specifierl constant-expression; 

The constant expression that follows the assignment operator (:=) is eval¬ 
uated when the routine is declared. This default value, plus the optional 
mechanism specifier, must be a legal actual parameter for the kind of 
formal parameter with which the default is associated. The mechanism 
specifier is required when the formal parameter is a procedure or function 
so that type checking between the actual and formal parameters is sus¬ 
pended. Sections 10.5.4 through 10.5.7 provide the rules for writing actual 
value, variable, routine, and foreign mechanism parameters. 

Table 10-1 explains when a default value is allowed: 


Table 10-1: Default Values on Formal Parameters 


Formal 

External Routine 

Lateral 

Parameter Type 


Routine 

Variable (VAR) 

Requires foreign mechanism specifier 

Error 

Value 

Allowed 

Allowed 

Routine 

Requires foreign mechanism specifier 

Error 


For example, the only time a default value is allowed on a VAR formal 
parameter is on an external routine whose definition contains a foreign 
mechanism specifier; for example 

PROCEDURE EXAMPLE (VAR I : INTEGER := RIMMED 0); EXTERN; 
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Suppose you declare the following routine: 

FUNCTION Net_Pay 
(Hours : INTEGER; 

Tax : REAL :* 0.06; 

Rate : REAL; 

Fica : REAL :* 0.07; 

Overtime : INTEGER) 

: REAL; 

The formal parameters Tax and Fica are given the default values 0.05 and 
0.07, respectively. Unless a call to Net_Pay explicitly provides different 
values for these parameters, the defaults are used. 


10.3.7 Function Blocks 

In PASCAL, a function identifier acts much like a variable and is synony¬ 
mous with the function result. When the function is called, the value of 
its result is undefined. By the time the function has finished execution, a 
value whose type is assignment compatible with the result type must have 
been assigned to the function identifier. The last value assigned to the 
function identifier is the result that is returned to the calling block. 

The function result may be of any ordinal, real, structured, or pointer 
type, except a file type or a structured type with a file component. Any 
attributes associated with the function result apply only within the func¬ 
tion block. Assignment (:=) is the only operation allowed on the function 
result. 

You cannot pass a function identifier to a formal VAR parameter. A block 
may refer to a function identifier declared in an enclosing block, but only 
for the purposes of assigning a value to it and recursively calling it. If 
you use the function identifier as an expression within its own executable 
section, the result is a recursive call on the function. 

Also, you cannot access individual array components or record fields of 
the function result, nor can you access the storage to which a function 
result of a pointer type refers. For instance, in the following example: 
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Example 

(* liinctlon returning structured result ♦) 

PROGRAM STRUCT_FUNC; 

TYPE 

TEN.REALS * ARRAY [1..10] OF REAL; 

VAR 

X : REAL; 

ARR : TEN.REALS; 

FUNCTION F : TEN.REALS; 

VAR 

I : INTEGER; 

F.ARR : TEN.REALS; 

BEGIN 

FOR I := 1 TO 10 DO 
F_ARR[I] ;= I; 

F := F_ARR; 

END; 

BEGIN 
ARR := F; 

X := ARR [3]; (♦ this gives the effect of F[3] ♦) 

END. 

You can assign the function identifier to a temporary variable of the same 
type in order to gain individual access to the array. 


10.3.8 Examples 

The following examples show complete procedure and function declara¬ 
tions. 

Examples 

1. PROCEDURE Min Max Avg 

(A : ARRAY[L..H : INTEGER] OF INTEGER; 

VAR Min, Max : Reinge; 

VAR Avg : REAL); 

VAR 

Sum, J : INTEGER; 

BEGIN 

Max := A[L]; 

Min := Max; 

Sum := Max; 

FOR J := L+1 TO H DO 
BEGIN 

Sum := Sum A[J] ; 

IF A[J] > Max 
THEN 

Max := A [J]; 
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IF A[J] < Min 
THEN 

Min := A[J] ; 

END; 

Avg := Sum/(H - L+1); 

END; 

This procedure computes the minimum, maximum, and average values 
in array A. Min, Max, and Avg are formal VAR parameters whose 
values are returned to the calling block and can be used in other 
computations in the program. A is specified as a value parameter 
because the procedure is concerned only with the values in the array; 
the array is not an output parameter. 

2. FUNCTION Count- Substrs 

(VAR String : VARYING [Lenl] OF CHAR ; 

VAR KeyStr : VARYING[Len2] OF CHAR.) 

; INTEGER; 

(* This function returns the number of times one 
substring is found in another. *) 

LABEL 

10 ; 

VAR 

I, J. Count : INTEGER; 

BEGIN 

Count := 0; 

FOR I : = 0 String. Length - KeyStr. Length DO 
BEGIN 

FOR J : = 1 TO KeyStr. Length DO 
IF String [I+J] <> KeyStr [J] 

THEN 

GOTO 10; 

Count := Count + 1; 

10 : 

END; 

Count^Substrs := Count; 

END; (* Count Substrs ♦) 

The function Count - Substrs uses two formal VAR parameters. String 
and KeyStr. (Remember that you can access the LENGTH field of a 
VARYING string separately.) Count Substrs returns an integer value 
that indicates the number of times KeyStr appears within String. Note 
that although formal VAR parameters are used here, the function does 
not modify them; they are used simply to save storage space. 

The following sample program illustrates some general concepts that 
apply to all routines. The explanations that follow Figure 10-1 are 
keyed to the circled numbers. 
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3 . 


PROGRAM Compute (INPUT. OUTPUT); 


CONST 


Number = 25; 

TYPE 

Range = 0..1000; 

List = ARRAY[1. .Number] OF R 2 Lnge; 

VAR 

Arr : List; 

Minimum, MaLximum : Range; 

Average : REAL; 

Int .Count : INTEGER; 

PROCEDURE Read.Ints O 
(VAR A : List; 

VAR I : INTEGER); © <1) 

(* This procedure reads the integers to be processed into the array A. The 
array of integers and the number of integers that were read are passed back to 
the main progrzim. *) 

BEGIN 

WRITELN ('Type from 1 to ', Number:3, ' integers, in the rainge of 0 to 1000.'); 
WRITELN ('Type <RET> after each integer and <CTRL/Z> after the last integer.'); 
I := 0; 

WHILE NOT EOF (INPUT) AND (I < Number) DO 
BEGIN 

I := I + 1; 

READLN (A[I]); 

END; 

END; (* procedure Read.Ints *) 

PROCEDURE Min .Max .Avg © 

(A : List; Ints.Read : INTEGER); ® 

(* This procedure computes the minimum, maximum, and average values in array A. 

It also counts the occurrences of the minimum and maximum values. Each of 
these computations is printed with text that labels each value. *) 


VAR 



Sum. J : INTEGER; 

Max .Count, Min .Count : 1. . Nximber; 


Min, Max : Range; i 

Avg : REAL; ) 

PROCEDURE Print.Data; © 

BEGIN 
WRITELN; 

WRITELN ('Maximum =', MaLx:4,', occurring'. Max.Count:4, 'times'); 
WRITELN ('Minimum =', Min:4,', occurring', Min.Count:4, 'times'); 
WRITELN ('Average value (triincated) =', TRUNC(Avg) :6) ; 

WRITELN ('Average value =', Avg : 12); 

END; (♦ procedure Print.Data *) 
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BEGIN 

Max := A[l] ; 

Min :* Max; 

Sum := Max; 

Max Count := 1; 

Min Count := 1; 

(* Begin following FOR loop with a 2 because Max and Min already contain the 
first component in array. The first iteration compares the second component 
to the first component. ♦) 

FOR J := 2 TO Ints_Read DO 
BEGIN 

Sum := Sum + A[J]; 

IF A[J] > Max 
THEN 

BEGIN 

Max := A[J] ; 

Max Count := 1; 

END; 

ELSE 

IF A[J] = Max 
THEN 

Max Count := Max. Count + 1; 

IF A[J] < Min 
THEN 
BEGIN 

Min := A[J] ; 

Min Count ;= 1; 

END 

ELSE 

IF A[J] = Min 
THEN 

Min Count := Min_ Count + 1; 

END; 

Avg := Sum/Ints Read; 

Print_Data; © 

END; ” 

BEGIN (* main program ♦) O 

Read Ints (Arr, Int_Count); e <D 
Min Max Avg (Arr, Int_Count);® 

END. (* main program *) 

This program computes the minimum, maximum, and average values 
in a list of integers typed at the terminal and the number of times 
the minimum and maximum values occur. The number of integers it 
accepts is determined by the symbolic constant "Number". 
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Execution starts with BEGIN which delimits the executable section of the 

main program O and follows these steps: 

• The main program calls the procedure Read Ints ©, which first types 
instructions to the terminal, and then reads integers and assigns them 
to successive components of the array A. 

• The main program calls the procedure Miru- Max_ Avg which first 
finds the minimum and maximum values of the integers stored in the 
array, and computes the number of times each min and max occurred; 
next computes the average number of integers read, and finally calls 
the procedure Print Data. 

• All routines must be declared in the declaration section of the main 
program or of another routine. A routine is not executed when it is 
declared. It is executed as a result of a routine call, which can appear 
in the main program or in another routine. 

Thus, in Figure 10-1, the procedures Read-Ints O and Miru-Max-Avg 
© appear in the declaration section of the program Compute. 

• You can also nest routines. The procedure Print- Data © is nested 
within the procedure Min Max_ Avg ©. Print Data is executed as a 
result of a procedure call © in the body of Miru Max^ Avg. 

• The heading of a routine can contain a formal parameter list ®. The 
heading of a function also indicates the type of the value returned. The 
declaration section defines local data items that are used in the routine. 
The executable section contains the statements that perform the actions 
of the routine. 

• The procedure Miri-Max—Avg uses local identifiers ©. The procedures 
Read-Ints and Print Data use no local identifiers. Instead, Print Data 
uses global identifiers defined in Min_ Max- Avg. 

• In procedure Read -Ints, the formal parameter list declares the parame¬ 
ters A and I of type List and INTEGER respectively ®. The procedure 
is called with two actual parameters: Arr of type List and InL Count of 
type INTEGER ®. 
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10.4 Directives 


A directive is the alternative to a block in a routine declaration. A directive 
provides the compiler with information about two kinds of routines: a 
routine whose heading is declared separately from its body, indicated by 
the FORWARD directive; and a routine that is external to the PASCAL 
program, indicated by the EXTERNAL (or, equivalently, the EXTERN or 
FORTRAN) directive. 

To specify a directive, include it immediately after the routine heading and 
follow it with a semicolon (;). Directives are recognized in this position 
only in a routine declaration. When you use a directive, you must not 
follow the heading with a block. The following sections describe the two 
classes of directives. 


10.4.1 FORWARD Declarations 

Although PASCAL requires you to declare routines before you refer to 
them, a forward declaration allows a routine to refer to another routine 
whose block has not yet been specified. For example, if two routines 
call each other recursively, a complete declaration of both routines is 
impossible. However, it is also impossible to omit the declaration, because 
without a formal parameter list, the routine cannot be compiled, nor can 
calls to the routine be verified. Therefore, you must forward-declare one 
of the recursive routines. The forward declaration provides the compiler 
with the information it needs, just as any other declaration does. But the 
forward declaration allows you to withhold the specification of the routine 
block until later in the source file. 

A forward declaration consists of the routine heading followed by the 
FORWARD directive, without a routine block. For example: 

PROCEDURE Chestnut 
(Bid ; REAL; 

Doc : CHAR; 

VAR Arc : Rec); 

FORWARD; 

When you specify the block of a forward-declared routine, you supply 
only the appropriate reserved word (PROCEDURE or FUNCTION) and 
the routine name. You do not repeat the formal parameter list, the result 
type, or the attribute lists that may have appeared in the routine heading. 
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Example 

[GLOBAL] FUNCTION Adder 
(Opl, 0p2. 0p3 : REAL) 

: REAL; 

FORWARD; 

PROCEDURE Printer 

(Student : Name . Array); 


BEGIN 

Z := Adder (A. B. C); 


END; 

(♦ GLOBAL *) FUNCTION Adder; 

(* (Opl. 0p2, 0p3 : REAL) : REAL *) 


BEGIN 

Printer ('Leonardo da Vinci'); 


END; 

This example forward-declares the function Adder, whose block appears 
after the declaration of the procedure Printer. Note that the heading of 
the Adder block describes its formal parameters, result type, and attribute 
list within comment delimiters. Although you must omit the parameter 
list, result type, and attribute lists when you declare the function block, 
inserting this information as a comment is good documentation practice. 


10.4.2 EXTERNAL Routines 

The EXTERNAL, EXTERN, and FORTRAN directives indicate routines that 
are external to a PASCAL program. They are used to declare indepen¬ 
dently compiled PASCAL routines and routines written in other languages, 
including VAX/VMS system services and VAX Run-Time Library routines. 
In VAX PASCAL, the FORTRAN, EXTERN, and EXTERNAL directives 
are equivalent. However, to ensure the portability of your program, you 
should use the FORTRAN directive only for external routines written in 
FORTRAN. 
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If you declare independently compiled PASCAL routines with the 
GLOBAL attribute (see Section 14.24), their names must be unique. 

That is, no two PASCAL routines with the GLOBAL attribute can have 
the same name, even if they are declared in different scopes or different 
compilation units. 

External routines not written in PASCAL are the only routines whose for¬ 
mal parameter can be declared using the %IMMED, %REF, %DESCR, and 
%STDESCR mechanism specifiers or the [IMMEDIATE], [REFERENCE], 
passing mechanism attributes, or the CLASS_A and CLASS_NCA mech¬ 
anism specifiers (see Section 14.16 for more information on the CLASS 
mechanism specifiers). See Sections 10.3.4, 10.5.7, and the VAX PASCAL 
User's Guide for details. 

Examples 

1. FUNCTION MTHITANH 

(Angle : REAL) 

: REAL; 

EXTERN; 

This example declares MTH$TANH, a VAX Run-Time Library proce¬ 
dure, as an external routine. 

2. PROCEDURE Forstring 

(%STDESCR S : PACKED ARRAY[A..B : INTEGER] OF CHAR); 

FORTRAN; 

This example declares the FORTRAN procedure Forstring. The formal 
parameter list specifies S as a conformant array parameter that is 
passed by string descriptor. 



10.5 Routine Calls 

A PASCAL routine is activated by either the execution of a procedure call 
or the evaluation of a function designator in an executable section. The 
syntax for invoking procedures and functions is identical: 

routine-identifier [[ ({actual-parameter}, ...)]] 
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routine-identifier 

The name of the procedure or function. 

actual-parameter 

A run-time expression of an appropriate type, or the name of a procedure 
or function. 

Actual parameters are required unless the routine has no formal parameter 
list or unless default values are being used for all the formal parameters. 

Although procedure calls and function designators have the same syntax, 
the ways in which you use them within an executable section are different. 
A procedure call is a statement by itself. A function designator usually 
does not appear by itself; it is an expression whose result is used within 
an executable statement. 

For example, you could invoke the procedure Yearly—Totals as 

Yearly .Totals (Amount Purchased, Amount ..Sold, Amount .Discount) ; 

while you might invoke the function Compute- -Interest as 

Earnings Compute Interest (Investment, 0.13, 5); 

The procedure Yearly—Totals is executed for its effects; the function 
Compute-Jnterest is executed to compute a value that is then assigned to 
the variable Earnings. 

For those instances when the function result is irrelevant, VAX PASCAL 
allows you to call a function as though it were a procedure by using an 
executable statement. 

The topics discussed in the following sections include: 

• The calling of functions as procedures—Section 10.5.1 

• The association of formal and actual parameters—Section 10.5.2 

• The effect of default parameters on association—Section 10.5.3 

• The specific rules for passing actual parameters to formal value, 
variable, and routine parameters—Sections 10.5.4 through 10.5.6 

• Foreign mechanism specifiers in actual parameter lists—Section 10.5.7 

Keep in mind that the VAX PASCAL compiler does not guarantee the 
order of evaluating, accessing, or binding of actual parameters in a func¬ 
tion designator or a procedure call. The VAX PASCAL compiler may 
treat these items in a random order, because they are implementation- 
dependent features. 
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10.5.1 Calling Functions as Procedures 


Sometimes you may want to perform the operations contained in a 
particular function, even though the result returned by the function is 
meaningless to the rest of your program. In VAX PASCAL, you can use a 
procedure call statement to activate a function. In such cases, the function 
result is ignored. You may not, however, pass a function to a formal 
procedure parameter. 

For example, given the function declaration 

FUNCTION Buf.Put 

(Varying.Ptr ; VARYING[Len] OF CHAR) 

: BOOLEAN; 

you could write the following statements to call it: 

IF Buf.Put (Ptr.Vary) 

THEN 


Buf.Put (Ptr.Vary); 

In the first call, the THEN clause is executed if the value of the func¬ 
tion result is TRUE. The second call treats Buf—.Put as a procedure and 
disregards the result. 


10.5.2 Parameter Association 

A routine call must pass exactly one actual parameter for each formal 
parameter. The actual parameter is either listed explicitly in the routine 
call or is supplied by means of a default value in the routine declaration. 

One way of establishing the correspondence between actual and formal 
parameters is to give the parameters in each list the same position. That 
is, the association of actual and formal parameters proceeds from left to 
right, item by item, through both lists. This form of association is called 
positional syntax. 

For example, suppose you declare the following procedure: 

PROCEDURE Compute_Suin 
(X. Y : INTEGER; 

VAR Z : INTEGER); 
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Using positional syntax, you could issue the following procedure call: 

Compute_S\im (Quantity + 6, 15, Total); 

Thus, the formal parameter X is passed the value of Quantity + 6; Y is 
passed the integer value 15; and Z is passed the variable Total. Quantity 
and Total must be accessible as integer variables in the block from which 
Compute—Sum is called (for more information on blocks and scope, see 
Chapter 13, Blocks, Programs, and Modules). 

Another way of establishing correspondence is to specify the formal 
parameter name and the actual parameter being passed to it. In VAX 
PASCAL, you can associate an actual with a formal parameter using the 
assignment (:=) operator. The actual parameters in the call do not have 
to appear in the same order as the formal parameters appeared in the 
declaration. This form of association is called nonpositional syntax. 

Using nonpositional syntax, you could call the procedure Compute_Sum 
with the following statement: 

Compute.Sum (Z := Total, X :* Qusintity + 6, Y 16); 

This call to Compute_Sum is equivalent to the call in the previous 
example that used positional syntax. 

You may use both positional and nonpositional actual parameters in the 
same call. However, you must still supply at most one actual parameter 
for any formal parameter, and you must list the positional parameters first. 
If you used both positional and nonpositional actual parameters in the 
same parameter list, the previous call to Compute_Sum might look like 
this: 

Compute.Sum (Quantity ■♦•6, Z :* Total, Y :« 15); 

The first actual parameter. Quantity + 6, corresponds to the formal pa¬ 
rameter X because both are the first parameters in their respective lists. 
Since the next two actual parameters use nonpositional syntax, they can 
be in either order, but they must be associated by name with the formal 
parameters to which they belong. 
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10.5.3 Actual Default Parameters 


When a routine call supplies no actual parameter for a formal parameter 
that was declared with a default value, the default is used. A compile¬ 
time error occurs if you fail to supply an actual parameter for a formal 
parameter that does not have a default value. 

When you declare a formal parameter with a default value, you can 
either omit it from the routine call or, if you use positional syntax, (see 
Section 10.5.2) you can indicate its position with a comma. For example, 
consider the routine heading that was shown in Section 10.3.6: 

FUNCTION Net.Pay 
(Hours ; INTEGER; 

Tax : REAL :* 0.06; 

Rat>o REIAL; 

Fica ; REAL :* 0.07; 

Overtime : INTEGER) 

: REAL; 

You can call Net_Pay in one of two ways: 

Take_Home_Year := Take_Home_Year + 

Net_Pay (Overtime :* 0vertime_Week, 

Rate :* Pay_Rate, 

Hours :* Hours_Week); 

Take_Home_Year :* Take_Home_Year + 

Net_Pay (Hours.Week, , Pay_Rate, 

, 0vertime_Week); 

You can override a formal parameter's default value by associating the 
formal parameter with an actual parameter in a routine call. For example, 
if you wanted to replace the default value of the formal parameter Tax in 
the example above for one call, you could call NeLJPay as follows: 

Take_Home_Year:* Take.Home_Year + 

Net_Pay (Hours_Week, 0.06, Pay_Rate, , 0vertime_Week); 

As a result of this routine call, the default value of Tax would be replaced 
by the value 0.06 supplied in the actual parameter list. 
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10.5.4 Actual Value Parameters 


When a routine requires an actual parameter for input, you use value 
semantics to pass the actual parameter. An actual value parameter must 
be a compile-time or run-time expression whose type is assignment 
compatible with the type of the corresponding formal parameter. Because 
there is no assignment compatibility for file variables, they can never be 
passed as value parameters. 

If necessary, the type of an actual parameter is converted to the type of 
the formal parameter to which it is being passed. In this case, PASCAL 
follows the same type conversion rules that it uses to perform any other 
assignment (see Section 7.1). You may, for example, pass an integer 
expression to a formal parameter of a real type. If an actual parameter has 
the UNSAFE attribute, no conversion occurs (see Section 14.22). 

When passing array and character-string expressions to conformant for¬ 
mal parameters, you must make sure that the components and indexes 
of both parameters are of the same base type. The index bounds of 
the actual parameter must fall within the range of the conformant ar¬ 
ray schema's index type. The rules for passing actual parameters to a 
conformant array parameter are affected by the UNSAFE attribute (see 
Chapter 14, Attributes). 

The following formal parameter list requires three value parameters: 

PROCEDURE Alpha 
(A. B : INTEGER; 

C : CHAR): 

If X and Y are integer variables, you can write the following procedure call 
for the procedure Alpha: 

Alpha (X+Y, 11, 'G'); 

Note that the actual parameters corresponding to A and B must be integer 
expressions, and the actual parameter corresponding to C must be a 
character expression. 
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10.5.5 Actual Variable Parameters 


When a routine requires an actual parameter as output, you use variable 
semantics to pass the actual parameter. Because the routine has direct 
access to the actual parameter, any change that the routine makes to the 
parameter's value is immediately reflected in the actual parameter. 

In general, an actual VAR parameter must be a variable or a component of 
an unpacked structured variable; it cannot be any other expression unless 
the corresponding formal parameter has the READONLY attribute (see 
Chapter 14, Attributes). You must pass a file variable to a formal VAR 
parameter. In VAX PASCAL, you may not pass the tag field of a variant 
record to a formal VAR parameter. 

When passing array and character-string variables to conformant for¬ 
mal parameters, you must make sure that the components and indexes 
of both parameters are of the same base type. The index bounds of 
the actual parameter must be within the range of the conformant ar¬ 
ray schema's index type. The rules for passing actual parameters to a 
conformant array parameter are affected by the UNSAFE attribute (see 
Chapter 14, Attributes). 

The type of a variable passed to a routine must be structurally compatible 
with the type of the corresponding formal parameter. You cannot pass a 
component of a packed structure to a formal VAR parameter, although 
you can pass the entire structure. 

The following formal parameter list contains three VAR parameters: 

PROCEDURE Tempest 

(VAR Sea, Breeze : REAL; 

VAR Sick : Med.File); 

You could call the procedure Tempest with this statement: 

Tempest (Tide, Speed, Patient); 

The actual parameters Tide and Speed must be variables of a real type. 
The actual parameter Patient must be a variable of the previously defined 
type Med — File. 

In VAX PASCAL, certain attributes in a routine declaration or a routine 
call affect the rules of compatibility between actual and formal VAR 
parameters. The resulting modifications to structural compatibility rules 
are outlined in Chapter 14, Attributes. These rules also apply to the 
corresponding components of structured types and to the base types of 
pointer types used as formal parameters. The attributes that result in rule 
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changes are the alignment, POS, READONLY, size, UNSAFE, VOLATILE, 
and WRITEONLY attributes. 


10.5.6 Actual Routine Parameters 

Sometimes a routine requires you to pass the name of a procedure or 
function as an actual parameter. When passing routines as parameters 
to other routines, VAX PASCAL requires that the formal parameter 
lists in both declarations be congruent. As described in Section 10.3, a 
formal parameter list can have five different kinds of parameter sections: 
value, variable, procedure, function, and foreign mechanism. Two formal 
parameter lists are congruent if they have the same number of sections 
and if the sections in corresponding positions meet any of the following 
conditions: 

• Both are value parameter sections containing the same number of 
parameters. The types of parameters must either be structurally 
compatible or be equivalent conformant schemas. 

• Both are variable parameter sections containing the same number of 
parameters. The types of the parameters must either be structurally 
compatible or be equivalent conformant schemas. Any attributes 
associated with a formal VAR parameter affect the kinds of actual 
parameters that can be passed to it (see Section 10.5.5). 

• Both are procedure parameter sections having either congruent formal 
parameter lists or no formal parameters. 

• Both are function parameter sections having either congruent formal 
parameter lists or no formal parameters, and having structurally 
compatible result types. 

• Both are foreign parameter sections having the same mechanism 
specifier and the same number of parameters, and whose types must 
be structurally compatible. 

If one formal parameter list has a LIST attribute on its last parameter 
section, the other formal parameter list must also have this attribute. 

The following program shows a function declaration that includes two 
functions as formal parameters. 

PROGRAM Money: 

VAR 

Costs. Pay, Fedtax, Food : REAL; 

Housing : INTEGER; 
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FUNCTION Income 
(Salary. 

Tax : REAL) 

: REAL; 


FUNCTION Expenses 
(Rent : INTEGER; 
Grocery : REAL) 

: REAL; 


FUNCTION Budget 

(FUNCTION Credit (Earnings, UStax : REAL) : REAL; 
FUNCTION Debit (Housing : INTEGER; Eat : REAL) : REAL) 
: REAL; 

VAR 

Deduct : REAL; 

BEGIN (♦ FUNCTION Budget ♦) 


Deduct := Debit (Eat :* Food, Housing := Housing) ; 
Budget :* Credit (Pay, Fedtax) - Deduct; 


BEGIN (* Main progr 2 Lm *) 

Costs := Budget (Income. Expenses); 


END. (♦ Main program *) 

When the function Budget is called, the function Income is passed to 
the formal function parameter Credit, and the function Expenses is 
passed to the formal function parameter Debit. When Credit is called, 
the program-level variables Pay and Fedtax are substituted for Credit's 
formal parameters. Earnings and UStax. In the call to Debit, nonposi- 
tional syntax is used to associate Debit's formal parameters Housing and 
Eat with the program-level variable Housing and Food. Note that there 
is no conflict between the names of program-level variables and formal 
parameters of routine parameters. 
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The presence of the ASYNCHRONOUS and UNBOUND attributes 
in routine declarations causes additional requirements to be imposed 
on the routines that can legally be passed as actual parameters. See 
Chapter 14, Attributes, for complete information about the effects of these 
attributes. 


10.5.7 Foreign Mechanism Specifiers on Actual Parameters 

When calling an external routine, you must make sure that you pass actual 
parameters by the mechanism stated or implied in the routine declaration. 
To this end, VAX PASCAL allows you to use the foreign mechanism 
specifiers %IMMED, %REF, %DESCR, and %STDESCR before an actual 
parameter in a routine call. 

When a mechanism specifier appears in a call, it overrides the type, 
semantics, and mechanism specified in the formal parameter declara¬ 
tion. Thus, type checking is suspended for the parameter association to 
which the specifier applies. See the VAX PASCAL User's Guide for more 
information on mechanism specifiers. 

Regardless of whether the mechanism is determined by a formal or an 
actual parameter, the mechanism specifier is interpreted in the same way 
(see Section 10.3.4). 

Special considerations arise when a function that has no formal parameters 
of its own (or that has defaults that are being used for all its formal 
parameters) is passed as a formal parameter to another routine. The 
appearance of the function identifier in an actual parameter list could 
indicate the passing of either the address of the entry mask or the function 
result. In VAX PASCAL, the address of the entry mask is passed by 
default. Therefore, to cause the function result to be passed, you must 
enclose the function identifier in parentheses. 

For example, the following routine calls show the function F being passed 
by immediate value as an actual parameter to the procedure P: 

P (y,IMMED F); 

P (7,IMMED (F)); 

In the first example, the address of function F's entry mask is passed by 
immediate value to the procedure P. In the second example, function F is 
evaluated, and its result is then passed by immediate value to P. 
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Chapter 11 

Predeclared Routines 


VAX PASCAL supplies predeclared procedures and functions that perform 
various commonly used operations. Note that only predeclared functions 
return a value that is associated with the function identifier. You use 
predeclared routines to: 

• Determine the allocation size and position of types 

• Perform arithmetic and bit-wise operations 

• Perform operations on character strings 

• Create and destroy dynamic variables 

• Perform input and output (see Chapter 12, Input and Output 
Processing) 

• Implement interlocked instructions 

• Return ordinal values 

• Convert data from one type to another 

• Return information on parameters 

• Perform miscellaneous actions 

In this chapter, the term "arithmetic types" refers to those data types that 
can be used in arithmetic operations. The arithmetic types are INTEGER, 
UNSIGNED, and the real types. 

The following section describes the predeclared VAX PASCAL routines 
listed above. Routines that handle input and output are described in detail 
in Chapter 12, Input and Output Processing; all of the VAX PASCAL pre¬ 
declared routines are summarized in Appendix C, Predeclared Routines. 
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11.1 Allocation Size Routines 



VAX PASCAL'S allocation size routines provide information about the 
amount of storage allocated for variables and components of various 
types (see the VAX PASCAL User's Guide for the default allocation size for 
items of each type). The parameters may be in the form of variable or 
type identifiers. Each routine returns an integer value that represents the 
allocation size of the given parameter. 


11.1.1 BITNEXT 


The BITNEXT function returns an integer value which indicates the 
number of bits that would be allocated for one component of type x in a 
packed array. BITNEXT has the form: 

BITNEXT (x) 

Where the parameter x can be of any type. 


11.1.2 BITSIZE 



The BITSIZE function returns an integer value that indicates the number 
of bits that would be allocated for one field of type x in a packed record. 
BITSIZE has the form: 

BITSIZE (x) 

Where the parameter x can be of any type. 


11.1.3 BIT-.OFFSET 


The BIT__OFFSET function returns an integer value that represents the 
bit-position of a field of type f in a record of type t. BIT^OFFSET has the 
form: 

BIT^OFFSET (t. f) 

Where the parameter t can be of any record type, and the parameter f can 
be any field contained in that record. 


11-2 Predeclared Routines 











11.1.4 BYTE-OFFSET 

The BYTE_OFFSET function returns an integer value that represents the 
byte-position of a field of type f in a record of type t. 

BYTE_OFFSET (t. f) 

Where the parameter t can be of any record type, and the parameter f can 
be any field contained in that record. 


11.1.5 NEXT 


The NEXT function returns an integer value that indicates the number of 
bytes that would be allocated for one component of type x in an unpacked 
array. 

NEXT (x) 

Where the parameter x can be of any type. If x represents a formal 
parameter, however, a warning occurs because the alignment of the 
corresponding actual parameter cannot be determined. The formal and 
actual parameters are assumed to have the same alignment, but in fact, 
the actual parameter is allowed to have greater alignment. 

Note that both the NEXT and SIZE functions return the same byte size 
values for a given type, except when the components of the specified type 
in an unpacked array are padded to ensure proper alignment. 


11.1.6 SIZE 


The SIZE function returns various results, depending on the value of the 
parameter x. The SIZE function has the following form: 

SIZE (xl.cl._cnl) 

Where the parameter x can be a type identifier or variable. If x is a type 
identifier, then SIZE returns an integer value which indicates the number 
of bytes that would be allocated for a variable or record field of type x. 

If X is a variable, then SIZE returns an integer value that indicates the 
number of bytes that are allocated for that variable. 
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In the case where the parameter x is a variant record variable or variant 
type identifier, SIZE returns an integer value that indicates the number of 
bytes that are (for a variant record variable) or would be (for a variant type 
identifier) allocated for both the fixed portion of the record, and the largest 
variant. In addition, you can supply additional parameters tl through tn 
that correspond to the case labels of the record. The SIZE routine returns 
an integer value that indicates the number of bytes that would be allocated 
by the NEW procedure for a dynamic variable of the specified variant. 

Note that the NEXT and SIZE routines return the same byte size values 
for a given type, except when the components of the specified type for an 
unpacked array are padded to ensure proper alignment. 


11.2 Arithmetic Routines 

Arithmetic routines perform mathematical computations. Actual param¬ 
eters to these routines can be expressions of any arithmetic type. The 
predeclared arithmetic routines fall into the three categories below: fully 
generic routines, real generic routines, and bit-wise routines. 

1. Fully generic routines take an actual parameter of any arithmetic type 
and return a value of the same type. The fully generic routines are 
ABS, MAX, MIN, and SQR. 

2. Real generic routines take an actual parameter of any arithmetic type 
and return a value of a real type. If the parameter is of type INTEGER, 
UNSIGNED, REAL, or SINGLE, the routine returns a value of type 
REAL. If the parameter is of type DOUBLE or QUADRUPLE, the 
routine returns a value of the same type. The real generic routines are 
ARCTAN, COS, EXP, LN, SIN, and SQRT. 

3. The bit-wise routines perform binary logical operations on expressions. 
The bit-wise routines are UAND, UNOT, UOR, UXOR, and XOR. 

The arithmetic predeclared routines consist of the following functions: 


11.2.1 ABS 


The ABS function has the form: 

ABS (x) 

ABS computes the absolute value of the parameter x, where x can be of 
any arithmetic type. The ABS function returns a value of type x. 
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11.2.2 ARCTAN 

The ARCTAN function is of the form: 

ARCTAN (x) 

ARCTAN computes the arc tangent of the parameter x, where x can be 
an INTEGER or REAL type. The ARCTAN function returns a REAL value 
expressed in radians. 


11.2.3 COS 


The COS function is of the form: 

COS (x) 

COS Computes the cosine of the parameter x, where x can be an 
INTEGER or REAL type, and is expressed in radians. The COS function 
returns a value of type REAL. 


11.2.4 EXP 


The EXP function has the format: 

EXP (x) 

EXP computes the exponential of the parameter x; that is, e^, where x can 
be an INTEGER or REAL type. The EXP function returns an value of type 
REAL. 


11.2.5 LM 


The LN function follows the form: 

LN (x) 

LN computes the natural logarithm of the parameter x, where x can be an 
INTEGER or REAL type. The value of x must be greater than zero. The 
LN function returns a value of type REAL. 
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11.2.6 MAX 


The MAX function has the form: 

MAX (xl,...,xn) 

MAX returns the maximum value of a list of parameters xl,...,xn, where 
the parameters can be any arithmetic type, but must all be of the same 
type. The MAX function returns a value the same type as the parameters. 


11.2.7 MIN 


The MIN function is of the form: 

MIN (xl.....xn) 

MIN returns the minimum value of a list of parameters xl,...,xn, where the 
parameters can be any arithmetic type, but must all be of the same type. 
The MIN function returns a value the same type as the parameters. 


11.2.8 SIN 


The SIN function has the form: 

SIN (x) 

SIN computes the sine of the parameter x, where x can be an INTEGER or 
REAL type, and is expressed in radians. The SIN function returns a value 
of type REAL. 


11.2.9 SQR 


The SQR function is of the form: 

SQR (x) 

SQR computes the square of the parameter x, where x can be of any 
arithmetic type. The SQR function returns a value of type x. 
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11.2.10 SQRT 

The SQRT function has the format: 

SQRT (x) 

SQRT computes the square root of the parameter x, where x can be an 
INTEGER or REAL type. If the value of x is less than zero, however, an 
error occurs. The SQRT function returns a value of type REAL. 


11.2.11 UAND 

The UAND function has the form: 

UAND (ul. u2) 

UAND performs a binary logical AND operation on each correspond¬ 
ing pair of bits of the parameters ul and u2, which must be of type 
UNSIGNED. UAND returns a value of type UNSIGNED. 

Example 

Result UAND (y.X'FF9'. ‘/.I'TOS'): 

This example returns the UNSIGNED hexadecimal value %X'70r. 


11.2.12 UlUOT 

The UNOT function if of the form: 

UNOT (ul) 

UNOT performs a binary logical NOT operation on each bit of the pa¬ 
rameter u, where u is an expression of type UNSIGNED. UNOT returns a 
value of type UNSIGNED. 

Example 

Result := UNOT (y.X'FF9'); 

This example returns the UNSIGNED hexadecimal value %XTFFFF006'. 
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11.2.13 UOR 


The UOR function has the form: 

UOR (ul, u2) 

UOR performs a binary logical OR operation on the corresponding pair 
of bits of two parameters ul and u2, which must be of type UNSIGNED. 
UOR returns a value of unsigned. 

Example 

Result :» UOR (y.X'FF9'. 7,X'703'): 

This example returns the UNSIGNED hexadecimal value %XTFB'. 


11.2.14 UXOR 

The UXOR function follows the form: 

UXOR (ul. u2) 

UXOR performs a binary logical exclusive OR operation on the corre¬ 
sponding pair of bits of two parameters ul and u2, which must be of type 
UNSIGNED. UXOR returns a value of UNSIGNED. 

Example 

Result :* UXOR (y.X'FF9'. y,X'703'); 

This example returns the UNSIGNED value %X'8FA'. 


11.2.15 XOR 


The XOR function is of the form: 

XOR (pi. p2) 

XOR performs a binary logical exclusive OR operaion on two sets (which 
must have the same base type) or two Boolean values. Depending on the 
types of the parameters passed, XOR returns either the set of elements 
that do not appear in both sets, or a Boolean value. 
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Example 

Result := XOR ( ['A'.'B'.'C'] ['B’.'C ,'D'] ) ; 

This example returns the set ['A'/D']. 


11.3 Character-String Routines 

VAX PASCAL supplies predeclared routines that manipulate charac¬ 
ter strings. The following sections describe the following predeclared 
functions: BIN, DEC, HEX, INDEX, LENGTH, OCT, PAD, STATUSV, 
SUBSTR, and UDEC, and the predeclared procedures READY and 
WRITEV, in alphabetical order. 


11.3.1 BIN 


The BIN function converts the value of the parameter x to its binary 
equivalent. It has the following form: 

BIN (x[[, length[[. digits]]I) 

The parameter x is the expression to be converted; this parameter can be 
of any type except VARYING OF CHAR, a conformant array schema, or a 
conformant VARYING schema. 

The BIN function returns the binary digits in a string of type VARYING 
OF CHAR. Two optional integer parameters specify the length of the 
resulting string and the minimum number of significant digits to be 
returned. If you specify a length that is too short to hold the converted 
value, the resulting string is truncated on the left. 

If you omit the optional parameters, the bit width of the converted 
parameter value determines the string length and the number of significant 
digits. By default, the number of significant digits is the minimum number 
of characters necessary to express all the bits of the converted parameter. 
This default length is one character more than the default number of 
digits, which causes a leading blank to be included in the resulting string 
when both parameters are omitted. 
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Example 



TYPE 


Month.Oates « SET OF 0..31; 


VAR 


Day8_0f_Raln : Month.Dates; 


Daya.Ol.Rain ;* [1, 2. 6. 10. 12, 14, 18, 22, 26, 30]; 

Result :* BIN (Days.Ol.Rain, 32); 

In this example, the BIN function converts the value of Days__Of__ 

Rain to its binary equivalent and returns this value as a string of 
32 characters. The resulting string has a 1 in each position where 
a value was assigned to Days_Of-JRain and a 0 in all other posi¬ 
tions. Thus, the string value returned by BIN for Days_Of__Rain is 
'01000010010001000101010001000110'. Note that the binary representa¬ 
tion is from right to left, with the leftmost bit representing the set 
element 31. 


11.3.2 DEC 



The DEC function converts the parameter x to its decimal equivalent. It 
has the form: 

DEC (xl. length [[, digitslll) 

The parameter x is the expression to be converted. Like the BIN, OCT, 
and HEX functions, DEC can take a parameter of any type except 
VARYING, conformant array, or conformant VARYING; however, un¬ 
like the BIN, OCT, and HEX functions, DEC requires the parameter x to 
be 32 bits or less in length. 

The DEC function returns the decimal digits in a string of type VARYING 
OF CHAR. Two optional integer parameters specify the length of the 
resulting string and the minimum number of significant digits to be 
returned. If you specify a length that is too short to hold the converted 
value, the resulting string is truncated on the left. If you do not specify 
values for the optional parameters, a default length and number of 
significant digits is specified by default. The defaults are the same as 
the BIN function, see Section 11.3.1 for more information. 
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Example 


VAR 

Account : INTEGER; 

BEGIN 

Account ;* 5; 

WRITELN (DEC (Account, 8. 7)); 


END; 

The value of the integer variable Account is converted to its decimal 
equivalent, and in this example, printed in 8 columns: seven digits, and 
one leading blank. 


11.3.3 HEX 


The HEX function converts the parameter x to its hexadecimal equivalent. 
It follows the format: 

HEX (xl. length I. digits!]]]) 

The parameter x is the expression to be converted; this parameter can be 
of any type except VARYING OF CHAR, a conformant array schema, or a 
conformant VARYING schema. 

The HEX function returns the hexadecimal digits in a string of type 
VARYING OF CHAR. Two optional integer parameters specify the length 
of the resulting string and the minimum number of significant digits 
to be returned. If you specify a length that is too short to hold the 
converted value, the resulting string is truncated on the left. If you do not 
specify values for the optional parameters, a default length and number of 
significant digits is specified by default. The defaults are the same as the 
BIN function, see Section 11.3.1 for more information. 

Example 

VAR 

P : ‘Rec; 


Digits :* 8; 

NEW (P); 

Result :* HEX (P. 10. Digits); 
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In this example, the HEX function returns a string of 10 characters con¬ 
taining the hexadecimal equivalent of the value of the pointer variable P. 
The string has 8 significant digits, as specified by the value of the actual 
parameter Digits. 


11.3.4 INDEX 

The INDEX function locates the first occurrence of a pattern string within 
an object string. INDEX has the form: 

INDEX (object, pattern) 

INDEX requires two character-string expressions as parameters: an object 
string to be searched and a pattern string to be found. 

The INDEX function returns an integer value that specifies the position 
where the leftmost component of the pattern string was located in the 
object string. The search ends as soon as the first occurrence of the 
pattern string is located. If the pattern string is not found, INDEX returns 
the value 0. If the pattern string is an empty string, INDEX returns the 
value 1. If the object string is an empty string, INDEX returns the value 
0 unless the pattern string is also empty; in that case, INDEX returns the 
value 1. 

Examples 

1. Object_String := 'The Pilgrims landed at Plymouth Rock'; 

Pattern^String := 'Plymouth Rock'; 

Position := INDEX (Object_String, Pattern.String); 

The INDEX function searches the value of Object-String for the value 
of Pattern—String. The integer value returned in this example is 24, 
which indicates that the first character of Pattern—String occurs in 
position 24 of Object—String. 

2. Object^String := 'The Pilgrims landed at Plymouth Rock'; 

Pattern_String := 'Mayflower'; 

Position := INDEX (Object_String, Pattern.String); 

The INDEX function searches the object string value The Pilgrims 
landed at Plymouth Rock', looking for the pattern string value 
'Mayflower'. Since the function never finds Pattern—String within 
Object—String, it returns the integer value 0. 
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11.3.5 LENGTH 


The LENGTH function determines the length of a string expression. It 
follows the form: 

LENGTH (str) 

LENGTH requires a character-string expression as a parameter. It re¬ 
turns an integer value which specifies the length of the character-string 
expression. 

Example 

Current_String := 'year-to-date Sales'; 

Current.Length := LENGTH (Current.String); 

The LENGTH function indicates the length of the current value of 
Current-String. Since this parameter has been assigned the value 'year-to- 
date Sales', the LENGTH function returns the integer value 18, indicating 
the number of characters in Current—String. 


11.3.6 OCT 


The OCT function converts the value of the parameter x to its octal 
equivalent. OCT has the form: 

OCT (xl, length I, digits]]]]) 

The parameter x is the expression to be converted; this parameter can be 
of any type except VARYING OF CHAR, a conformant array schema, or a 
conformant VARYING schema. 

The OCT function returns the octal digits in a string of type VARYING OF 
CHAR. Two optional integer parameters specify the length of the resulting 
string and the minimum number of significant digits to be returned. If 
you specify a length that is too short to hold the converted value, the 
resulting string is truncated on the left. If you do not specify values for 
the optional parameters, a default length and number of significant digits 
is specified by default. The defaults are the same as the BIN function, see 
Section 11.3.1 for more information. 
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Examples 

1. IntVar :* 427; 

Result := OCT (IntVar. 10. 3); 

The OCT function returns the octal equivalent of IntVar in a string 
with 10 characters and 3 significant digits. The value returned in this 
example is '653'. The string is padded on the left with enough blanks 
to extend it to the length specified. 

2. Result := OCT (IntVar. 10. 10); 

If the value of IntVar is the same as in the previous example, the OCT 
function returns the value '0000000653'. The resulting string is padded 
with leading zeros to provide the 10 significant digits requested. 


11.3.7 PAD 


The PAD function appends a fill character to a character string as many 
times as is necessary to extend the string to its specified size. It has the 
form: 

PAD (str, fill, size) 

You must pass three parameters to PAD: a character-string expression to 
be padded, an expression of type CHAR to be used as the fill character, 
and an integer expression indicating the size of the final string. 

The function returns a character string of the desired size. This string is 
composed of the original string followed by the fill character, which is 
repeated as many times as is necessary to extend the string to its specified 
size. The final size must be greater than or equal to the length of the 
string to be padded. 

Examples 

1. Pad_String := 'Short string'; 

Result^String := PAD (Pad.String, '♦'. 20); 

This example pads the value of Pad-String with the filler character '*' 
until the string is 20 characters long. Since Pad—String has the value 
'Short string', the PAD function returns the character string 'Short 
string********'. 
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2. Pad_String :* 'Long character string'; 

String.Size :* 10; 

Result.String :* PAD (Pad.String, '!', String.Size); 

This example pads the value of Pad—String with the filler character 
'V until the string is 10 characters long. Since Pad—String has been 
assigned the value 'Long character string', it already contains more 
than 10 characters. Therefore, an error occurs at run time. 


11.3.8 READV 

The READV procedure reads characters from a character-string expression 
and assigns them to the variables listed as parameters in the READV 
procedure call. The behavior of READV is analogous to that of RE ADEN; 
the character string is analogous to a one-line file. READV follows the 
following form: 

READV (str, {variable-identifier[[: radix-specifierj }, . . . 

[[, ERROR := error-recovery]]) 

You may optionally include a radix specifier on the variable identifier(s). 
The radix specifiers are BIN, OCT, and HEX. You can read a variable 
of any type by using a radix specifier except a type that contains a file 
component. 

An error occurs at run time if values have not been assigned to all the 
parameters listed in the READV procedure call before the end of the 
character string is reached. The error-recovery parameter indicates the 
action to be taken if an error occurs while the READV procedure is 
executing. 

Examples 

TYPE 

Color = (Yellow. Red. Blue); 

Flower = (Daisy. Lily. Orchid. Tulip); 

VAR 

Paint : Color; 

Bouquet : Flower; 

Month : VARYING[6] OF CHAR; 

RealVar : REAL; 

Read.String : VARYING[17] OF CHAR; 


Read.String := 'Red July 26.33805'; 
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1. READY (Read.String, Paint. Month. RealVar); 

The READY procedure reads characters from the string variable Read- 
String and assigns them to the variables Paint, Month, and RealVar. 
Therefore, upon completion. Paint contains Red; Month contains the 
string ' July' and RealVar contains the real value 26.33805. 

2. READY (Read_string. Paint. Month. RealYar. Bouquet); 

In this example, when the READY procedure is called, the value of 
Read-String does not contain enough characters to assign values to all 
the variables listed. Therefore, an error occurs. 

3. READY (Read.String. Paint. Month); 

In this example, characters are read from Read—String only until values 
are supplied for Paint and Month. The rest of the characters in the 
string are ignored. 

4. READY (Read_String. RealYar. Paint. Month); 

In this example, the READY procedure tries to assign the first charac¬ 
ters of Read—String to the variable RealVar. Because RealVar is of type 
REAL, the characters 'Red' cannot be assigned to it and an error occurs. 


11.3.9 STATUSV 

The STATUSV function returns an integer value which specifies the 
status of the last READY or WRITEV completed. It does not have any 
parameters. 

Note that if you have an Asynchronous Trap routine condition-handler 
written in your program which uses READY and WRITEV, the call of 
STATUSV in your main program may not return the results you expected 
if an AST occurred between the READY/WRITEV and STATUSV. 

Example 

YAR 

Yary.Src : YARYING [20] OF CHAR; 

Int.Result : INTEGER; 

BEGIN 

Yary.Src :* '255'; 

READY (Yary.Src. Int.Result. ERROR := CONTINUE); 

IF STATUSY <> 0 
THEN 

WRITELN ('Error in READY'); 

END; 
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11.3.10 SUBSTR 


The SUBSTR function extracts a substring from another character string. It 
has the format: 

SUBSTR (str, start, length) 

SUBSTR requires three parameters: a character string to be taken apart, an 
integer expression that indicates the starting position of the substring, and 
an integer expression that indicates the length of the substring. 

SUBSTR returns a varying string of the length specified, starting at the 
specified position. 

The following rules apply to the use of the SUBSTR function: 

• The values of the starting position and the length must be greater than 
zero. 

• There must be enough characters following the starting position to 
construct a substring of the specified length. 


Examples 

1. Original_String := 'This is the original string'; 

Start_Position := 13; 

Substring.Length := 16; 

New^String := SUBSTR (Original_String, Start^Position, 

Substring.Length); 

The SUBSTR function constructs a varying string starting at position 13 
of OriginaLString and containing the next 15 characters. It returns the 
character string 'original string'. 

2. Original_String ;= 'The substring cannot be formed'; 

New_String ;* SUBSTR (Original.String, 12. 25); 

In this example, an error occurs at run time because the SUBSTR 
function cannot construct a varying string of length 25 beginning 
in position 12, since there are only 18 characters in OriginaLString 
following the specified starting position. 
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11.3.11 


UDEC 


The UDEC function converts the parameter x to its unsigned decimal 
equivalent. It has the form: 

UDEC (xl, length[[, digits]]I) 

The parameter x is the expression to be converted. Like the BIN, OCT, 
and HEX functions, UDEC can take a parameter of any type except 
VARYING, conformant array, or conformant VARYING; however, unlike 
the BIN, OCT, and HEX functions, UDEC requires the parameter x to be 
32 bits or less in length. 

The UDEC function returns the unsigned decimal digits in a string of 
type VARYING OF CHAR. Two optional integer parameters specify the 
length of the resulting string and the minimum number of significant 
digits to be returned. If you specify a length that is too short to hold the 
converted value, the resulting string is truncated on the left. If you do not 
specify values for the optional parameters, a default length and number of 
significant digits is specified by default. The defaults are the same as the 
BIN function (see Section 11.3.1 for more information). 

Example 

VAR 

Account : INTEGER; 

BEGIN 

Account :* 3; 

WRITELN (UDEC (Account); 


END; 

In this example, the value of the integer variable Account is converted 
to its unsigned decimal equivalent. UDEC uses a default width when 
printing out the converted value (see Section 12.6.7 for more information 
on default widths). 
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11.3.12 WRITEV 


The WRITEV procedure writes characters to a character-string variable 
of type VARYING OF CHAR by converting the values of the parameters 
listed in the procedure call to textual representations. The behavior of 
WRITEV is analogous to that of WRITELN; the character-string variable is 
analogous to a one-line file. WRITEV has the form: 

WRITEV (str, parameter-list E, ERROR := error-recovery]]) 

An error occurs if WRITEV reaches the maximum length of the character 
string before the values of all the parameters in the procedure call have 
been written into the string. The error-recovery parameter indicates the 
action to be taken if an error occurs while the WRITEV procedure is 
executing. 

Example 

TYPE 

Color = (Yellow, Red, Blue); 

Flower = (Daisy, Lily, Orchid, Tulip); 

VAR 

Bouquet ; Flower :* Orchid; 

Month : VARYING[9] OF CHAR; 

RealVar : REAL; 

Write.String : VARYING[30] OF CHAR; 


RealVar := 232.705; 

WRITEV (Write.String, Yellow, RealVar:7:3, PRED(Bouquet)); 

The WRITEV procedure writes the constant value Yellow, the value of 
RealVar with a specified field width (see Chapter 12, Input and Output 
Processing), and the predecessor of the value of Bouquet into the variable 
Write_String. Write_String then contains the value 

• YELL0W232.705 LILY' 


NOTE 

You may not use a destination-string variable in the parameter 
list of the WRITEV statement. For example, in the program 
fragment 
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MYSTRING := A; 


WRITEV (MYSTRING, MYSTRING); 

the result is "A" rather than "AA" as expected. The current 
implementation of the WRITEV procedure, and the order of 
variable evaluation (see Appendix C) may cause unexpected 
results to occur. 


11.4 Dynamic Allocation Routines 

VAX PASCAL provides dynamic allocation routines for the creation of 
pointer variables. Using pointer variables and dynamic allocation routines, 
you can create linked data structures, as illustrated in Section 11.4.1. The 
following sections describe the two predeclared functions ADDRESS and 
lADDRESS, and the two predeclared procedures DISPOSE and NEW. 


11.4.1 ADDRESS 

The ADDRESS function returns a pointer value that refers to the parame¬ 
ter X. ADDRESS has the form: 

ADDRESS (x) 

The parameter x must be a variable of any type except a component 
of a packed structured type. A compile-time warning results if x is a 
formal VAR parameter, a component of a formal VAR parameter, or a 
variable that does not have the READONLY or VOLATILE attribute (see 
Chapter 14, Attributes). 

The VAX PASCAL compiler assumes that all pointers refer either to 
dynamic variables allocated by the NEW procedure or to variables that 
have the VOLATILE attribute; a pointer cannot refer to a nonvolatile 
variable unless the variable is allocated in heap storage by the NEW 
procedure (see Section 11.4.3). 
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11.4.2 DISPOSE 


The DISPOSE procedure deallocates memory for the dynamic variable p". 
It has the form: 

DISPOSE (p) 

You refer to this variable using a pointer value. For example, to deallocate 
memory for the dynamic variable Ptr", you can issue the procedure call: 

DISPOSE (Ptr): 

As a result, the memory allocated for Ptr" is deallocated and the variable 
is destroyed. The value of the pointer Ptr becomes undefined. Because 
you cannot refer to an undefined quantity, you cannot call DISPOSE more 
than once for the same dynamic variable. 

Example 

PROGRAM Linked.List (INPUT. OUTPUT); 

(* This program constructs a linked list of records. Each 

student record contains the name and student ID number of one 
student and, in addition, a field that is a pointer to the 
next record. The program reads a number and a name and assigns 
each of them to a field of the student record. Then it inserts 
the new component at the beginning of the linked list by 
assigning the "Start" pointer to that new record. *) 

TYPE 

Student_Ptr = "Student_Data; 

String = PACKED ARRAY[1..20] OF CHAR; 

Number = 1..99999; 

Student_Data = RECORD 

Name : String; 

Stud_ID : Number; 

Next : Student_Ptr; 

END; 


VAR 


Start, Student : Student_Ptr; 


New_ID 

New_Name 

Count 


Number; 

String; 

INTEGER; 
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PROCEDURE Write_Data 

(Student : Student.Ptr); 

i* This procedure prints the list of students. Because the printing 
starts at the beginning of the linked list, the student names 
and ID numbers are printed in the reverse of the order in which 
they were entered. *) 


VAR 

I.J : INTEGER; 

Next_Student : Student_Ptr; 

BEGIN 

WRITELN (’Name: 'Student.ID : ':29); 

REPEAT 

WRITELN (Student".Name:20, Student".Stud.ID:7); 

Next.Student := Student".Next; 

DISPOSE (Student); 

Student := Next.Student; 

UNTIL Student = NIL; 

END; (* End of Write.Data *) 

BEGIN (* Main Program *) 

Count : = 0; 

WRITELN ('Type a 6-digit ID number smd a name for each student.'); 

WRITELN ('Press CTRL/Z when finished.'); 

Start := NIL; 

WHILE NOT EOF DO 
BEGIN 

READLN (New.ID, New.Name); 

NEW (Student); 

Student".Next := Start; 

Student" . Name := New.N 2 une; 

Student".Stud.ID := New.ID; 

Start := Student; 

Count := Count + 1; 

END; 

IF Count > 0 
THEN 

Write.Data (Start); 

END. (* main progr 2 Lm ♦) 

In the main program, the WHILE loop begins by reading a number and a 
name for one student. The NEW procedure (see Section 11.4.3) allocates 
memory for a new record named Student. This new record becomes the 
first record in the list; that is, StudenL.Next points to the previous head 
of the list (or to NIL, if only one record has been read). The value of the 
new student record is assigned to the pointer variable Start. 

The Write_Data procedure writes the name and student ID number for 
each student in the linked list. After writing data for one student, the 
procedure assigns the address of the next record in the list to NexL_ 
Student. The DISPOSE procedure deallocates memory for one student 
record. After deallocating memory for Student, the procedure assigns the 
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value of Next- Student to Student. When the current Student record again 
points to NIL, the loop stops executing. 


11.4.3 I ADDRESS 

The lADDRESS function is sinnilar to the ADDRESS function, except 
that it returns an integer value that refers to the parameter x, instead of 
returning a pointer value, and unlike the ADDRESS function, lADDRESS 
will not cause any compile-time warnings. lADDRESS follows the form: 

lADDRESS (x) 

The parameter x may be of any type except a component of a packed 
structured type. 

The VAX PASCAL compiler automatically assumes that all pointers 
refer either to dynamic variables allocated by the NEW procedure or to 
variables that have the VOLATILE attribute; therefore, you should use 
utmost caution when using the lADDRESS function. 

The lADDRESS function is commonly used for constructing arguments for 
system services. 

Example 

VAR 

Real.Addr : INTEGER; 

Real.Var : REAL; 

BEGIN 

Real.Addr :* lADDRESS (Real.Var); 

WRITELN ('The address of Real^Var is', Real.addr); 

END; 

This example causes lADDRESS to return an integer value which repre¬ 
sents the address of ReaLVar. 
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11.4.4 NEW 



The NEW procedure sets aside memory for p", that is, the dynamic 
variable to which the pointer variable p refers. The value of this newly 
allocated variable (p") is undefined. You cannot assume that the allocated 
area is initialized. 

NEW has the form: 

NEW (p) 

For example, you could declare a pointer variable as follows: 


VAR 


Ptr : ^INTEGER: 

This declaration establishes Ptr as a pointer variable that refers to an 
integer variable. The integer variable and its address do not yet exist, 
however. You must use the following procedure call to allocate memory 
for the dynamic variable: 

NEW (Ptr); 

This procedure allocates a variable of type INTEGER in dynamically 
allocated heap storage. The variable is denoted by Ptr", that is, the name 
of the pointer variable followed by a circumflex ("). This procedure also 
assigns the address of the allocated integer to Ptr. 



11.4.5 NEW and DISPOSE—Record-with-Variants Form 


You can use the following forms of NEW and DISPOSE when manipulat¬ 
ing dynamic variables of a record type with variants: 

NEW (pv[I,tl.tnl) 

DISPOSE (pl.tl, . . . .tnl) 

The parameter pv must be a pointer variable of a type that refers to a 
record type with variants; the parameter p must be a pointer expression 
(including a pointer-valued routine) of a type that refers to a record type 
with variants. In both cases, the optional t parameters must be constant 
expressions of an ordinal type. They represent nested tag field values, 
where tl is the outermost variant. 


11-24 Predeclared Routines 









If you create a dynamic variable without specifying the tag field values, 
enough memory is allocated to hold any of the variants in the record. 
Sometimes, however, a dynamic variable will take values of only a 
particular variant. If that variant requires less memory than NEW (p) 
would normally allocate, you can use the NEW (p,tl,...,tn) form. Because 
the record-with-variants form of the NEW procedure allocates memory 
for the variant alone and not for the whole record, you cannot assign 
or evaluate the record as a whole; you can assign and evaluate only the 
record's individual fields. A call to NEW does not set the tag field(s) of a 
variant record. You must specifically indicate a value. 


Example 


TYPE 

Menu.Ptr = " Menu,. Order; 

Meat.Type = (Fish, Fowl, Beef); 
Beef_Portion = (0z_10, 0z_16, 0z_32); 
Menu_Order = RECORD 

CASE Entree : Meat_Type OF 


VAR 


END; 


Menu_Selection : Menu_Ptr; 


Fish : 

(Fish„Type : 

(Salmon, Cod, Perch, Trout); 
Lemon : BOOLEAN); 

Fowl : 

(Fowl_Type : 

(Chicken, Duck, Goose); 

Sauce : 

(Orange, Cherry, Raisin)); 

Beef : 

(Beef_Type : 

(Steak, Roast, Prime_Rib); 

CASE Size : Beef_Portion OF 
0z_10, 0z_16 : 

(Beef.Veg : (Pea, Mixed)); 
Oz.32 : 

(Stomach.Cure : 
(Bicarbonate, 

Antacid, 

None_Needed))); 


You can allocate memory as follows for only the variant that corresponds 
to Fish: 


NEW (Menu.Selection, Fish); 

You can allocate memory for nested variants as follows: 

NEW (Menu.Selection, Beef, 0z_32); 
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The tag field values must be listed in the order in which they were 
declared. 

The DISPOSE (pv,tl,...,tn) procedure call releases memory occupied by 
p''. The tag field values tl through tn must be identical to those specified 
when memory was allocated with NEW. For example: 

DISPOSE (Menu Selection, Beef, Oz „32); 

This call deallocates the memory allocated by the last NEW procedure call 
shown above. 

If a dynamic variable with specified record variants was allocated by the 
NEW procedure, it can be deallocated only by a DISPOSE procedure that 
specifies identical record variants. 

You may not dispose a dynamically allocated variable while a reference to 
it exists. Chapter 8, The Declaration Section, describes the conditions that 
establish a variable reference. 


11.5 INPUT/OUTPUT Routines 

All input/output routines are discussed in Chapter 12, Input and Output 
Processing. A complete listing of all PASCAL predeclared routines can be 
found in Appendix C, Predeclared Routines. 


11.6 Low-Level Routines 

VAX PASCAL provides low-level functions to allow parallel processes 
and asynchronous routines to operate in a real-time or multitasking 
environment. The compiler translates these functions into machine 
instructions provided by the VAX architecture. 
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11.6.1 ADD-INTERLOCKED 


The ADD_INTERLOCKED function adds the value of an expression 
to the value of a variable, using the VAX Add Aligned Word Interlocked 
(ADAWl) instruction, and stores the newly computed value in the variable. 
ADD_INTERLOCKED has the following form: 

ADD.INTERLOCKED (e, v) 

The type of the expression e must be assignment compatible with that 
of the variable v. The variable v must be an integer or an unsigned 
subrange; v must have an allocation size of two bytes and must be aligned 
on a word boundary. The type of e must be assignment compatible with 
that of V. The function returns the integer value -1 if the new value of v 
is negative, 0 if it is zero, and +1 if it is positive. 

Note that unless the type of v is an integer subrange that includes negative 
values, the result of the ADD—INTERLOCKED function will never be -1. 

Overflow and subrange checking are never performed on the ADD- 
INTERLOCKED operation, even if these options are in effect for the 
rest of the function or compilation unit. See Section 14.5, and the VAX 
PASCAL User's Guide for details on checking options. 


11.6.2 CLEAR-INTERLDCKED 

The CLEAR—INTERLOCKED function assigns the value FALSE to b and 
returns the original value of b, using the VAX Branch on Bit Clear and 
Clear Interlocked (BBCCI) instruction. CLEAR—INTERLOCKED has the 
form: 

CLEAR_INTERLOCKED (b) 

The parameter b must be a variable of type BOOLEAN. The variable does 
not have to be aligned; therefore, it can be a field of a packed record. 
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11.6.3 FIND-FIRST-BIT_CLEAR 


The FIND_FIRST_BIT_CLEAR function locates the first bit in a PACKED 
ARRAY OF BOOLEAN whose value is 0. FIND_FIRST_BIT_CLEAR has 
the format: 

FIND^FIRST_BIT_CLEAR (vector I, start.index]]) 

Vector is a variable of type PACKED ARRAY OF BOOLEAN with an 
INTEGER index type. The optional start__index argument must be an 
integer expression that indexes the element at the point at which the 
search starts. Start_Jndex must be greater than or equal to the vector's 
lower bound, and less than or equal to 1 plus the vector's upper bound; 
otherwise, a range violation occurs. If omitted, the starting index defaults 
to the vector's first element. 

The result of FIND_FIRST_BIT_CLEAR is an INTEGER indexing the 
first element containing the value 0. If no bit is 0, the result is 1 plus the 
vector's upper bound. If the vector or the indexed part of the vector has a 
size of 0, the result is start-index. 


11.6.4 FIMD..FIRST.-BIT-.SET 

The FIND—FIRST_BIT__SET function locates the first bit in a PACKED 
ARRAY OF BOOLEAN whose value is 1. FIND JIRST-BIT_SET has the 
format: 

FIND_FIRST_BIT_SET (vector I. start_index]]) 

Vector is a variable of type PACKED ARRAY OF BOOLEAN with an 
INTEGER index type. The optional start—index argument must be an 
integer expression that indexes the element at the point at which the 
search starts. Start-index must be greater than or equal to the vector's 
lower bound, and less than or equal to 1 plus the vector's upper bound; 
otherwise, a range violation occurs. If omitted, the starting index defaults 
to the vector's first element. 

The result of FIND—FIRST_BIT—SET is an INTEGER indexing the first 
element containing the value 1. If no bit is 1, the result is 1 plus the 
vector's upper bound. If the vector or the indexed part of the vector has a 
size of 0, the result is start-index. 
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11.6.5 FIND-MEMBER 

The FIND_MEMBER function locates the first character in a string that is 
a member of a specified set. FIND_MEMBER has the form: 

FIND_MEMBER (string, charset) 

Where string supplies a string value and charset supplies a SET of CHAR. 

The result of FIND_MEMBER is an INTEGER indicating the position in 
the string of the first character that is also a member of charset. The value 
1 indicates the first character in the string; the value 0 indicates that none 
of the string's characters are members of the set. 


11.6.6 FIND-.NONMEMBER 

The FIND—NONMEMBER function locates the first character in a string 
that is not a member of a specified set. FIND—NONMEMBER has the 
form: 

FIND_NONMEMBER (string, charset) 

Where string supplies a string value and charset supplies a SET of CHAR. 

The result of FIND—NONMEMBER is an INTEGER indicating the positon 
in the string of the first character that is not a member of charset. The 
value 1 indicates the first character in the string; the value 0 indicates that 
all of the string's characters are members of the set. 


11.6.7 SETJNTERLOCKED 

The SET-INTERLOCKED function assigns the value TRUE to b and 
returns the original value of b, using the VAX Branch on Bit Set and Set 
Interlocked (BBSSI) instruction. SET—INTERLOCKED has the form: 

SET.INTERLOCKED (b) 

The parameter b must be a variable of type BOOLEAN. The variable does 
not have to be aligned; therefore, it can be a field of a packed record. 
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11.7 Ordinal Routines 

Ordinal routines require an actual parameter of an ordinal type and 
return a value of the same type. The ordinal routines consist of the two 
functions: 


11.7.1 PRED 


The PRED function has the form: 

PRED (x) 

PRED returns the value that immediately precedes the parameter x in the 
ordered sequence of values of its type. There must be a predecessor value 
for X in the type. 


11.7.2 SUCC 


The SUCC function has the form: 

SUCC (x) 

SUCC returns the value that immediately succeeds the parameter x in the 
ordered sequence of values of its type. There must be a successor value 
for X in the type. 


11.8 Parameter Routines 

VAX PASCAL provides parameter passing routines to allow for the easy 
input and output of parameters in a routine where the parameter list 
length is varied. The parameter routines consist of the three functions 
ARGUMENT, ARGUMENT_LIST_LENGTH, and PRESENT. 
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11.8.1 


ARGUMENT 


The ARGUMENT function specifies an argument which corresponds to 
a function or procedure parameter with the LIST attribute. ARGUMENT 
follows the form: 

ARGUMENT (paraLmeter-name, n) 

The parameter-name argument specifies the name of a parameter declared 
with the LIST attribute. The parameter n specifies a positive integer value 
which identifies the argument. The first argument in a list is always 
1. An error occurs if the value supplied for n is less than 1, or exceeds 
the ARGUMENT_LIST_LENGTH parameter (which indicates the total 
number of arguments; see Section 11.8.2 for an example). 

Use of the ARGUMENT function is the only way to refer to an argument 
which corresponds to a LIST attribute. 

If the LIST parameter is a value parameter, ARGUMENT indicates the 
corresponding value in the argument list. If the LIST parameter is a VAR 
parameter, ARGUMENT is a reference to the corresponding variable in 
the argument list. 


11.8.2 ARGUMENUISUENGTH 


The ARGUMENT_LIST_LENGTH function returns an integer value 
representing the number of parameters corresponding to a parameter with 
the LIST attribute. ARGUMENT_LIST_LENGTH has the form: 

ARGUMENT_LIST_LENGTH (parameter-name) 

The parameter-name argument specifies the name of the parameter 
declared with the LIST attribute. 

Example 

PROGRAM Show.Arg (OUTPUT); 

PROCEDURE Sho (FI ; VARYING [len] OF CHAR; Ax : [LIST] CHAR); 

VAR 

I : INTEGER; 

BEGIN 

WRITE (FI. •. '); 

FOR I :* 1 TO ARGUMENT.LIST.LENGTH (Ax) DO 
WRITE (ARGUMENT (Ax. I)); 

WRITELN; 

END; 


Predeciared Routines 


11-31 








BEGIN 

Sho (’ hi; 

Sho ( ' hello'.'s'.'a'.'i',.'o','r' ); 

END. 

In this example, the first call to the Procedure Sho assigns the string 'hi' 
to the parameter FI, and assigns the string '!' to the parameter Ax. The 
second call to Sho assigns the string 'hello' to FI, and 's','a', 'i','!', 'o','r' 
to Ax. The ARGUMENT_LIST_LENGTH function allows you to specify 
the upper bound of Ax without indicating an exact upper bound. The 
ARGUMENT function, in this example, causes the entire string passed to 
the Procedure Sho to be printed. 


11.8.3 PRESENT 

The PRESENT function indicates whether the argument list of a rou¬ 
tine contains an argument which corresponds to a formal parameter. 
PRESENT is usually used to supply a default value or take a default ac¬ 
tion when the argument for a VAR, function, or procedure parameter is 
omitted. PRESENT has the form: 

PRESENT (parameter-name) 

The parameter-name argument is the name of a VAR, function or pro¬ 
cedure parameter with the TRUNCATE attribute. Parameter-name must 
be the name of a formal parameter of the function from which PRESENT 
is called, or from a subroutine of that function. PRESENT'S result is 
a BOOLEAN value indicating whether or not the argument list of the 
containing routine specifies an argument corresponding to the optional 
parameter. 

Parameters that do not have the TRUNCATE attribute (see Chapter 14, 
Attributes), and also do not follow a parameter with the TRUNCATE 
attribute in the formal parameter list, are required, and must be present; in 
their case PRESENT always returns TRUE. 

Defaulted parameters are considered to be present in the argument list, 
and PRESENT will return TRUE when passed the name of a parameter 
that has been defaulted. 
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Example 

PROGRAM Trunc (OUTPUT); 

VAR 

A : CHAR; 

B : CHAR; 

C : INTEGER; 

PROCEDURE Values (A : CHAR; 

B ; [TRUNCATE] CHAR; 

C : [TRUNCATE] INTEGER); 

BEGIN 

IF PRESENT (A) THEN WRITE ( '1-'); 

IF PRESENT (B) THEN WRITE ( '2-'); 

IF PRESENT (C) THEN WRITE ( '3!'); 

WRITELN; 

END; 

BEGIN 
Values(A); 

Values(A.B); 

Values(A,B.C); 

END. 


In this example, the first call to Values causes the procedure to print ‘\- 
since only a value for the first parameter is present in the argument list. 
The second call to Values would print as there are two values in 

the argument list. The third call to Values causes '1-2-3!' to be printed, as 
each of the parameters is present in the argument list. 


11.9 Transfer Routines 


Transfer routines take an actual parameter of one type and convert it to 
another type. They are described below. 


11.9.1 CHR 


The CHR function returns a value of type CHAR whose ordinal value 
in the ASCII character set is the parameter x, provided such a character 
exists. CHR has the form: 

CHR (x) 

The parameter x must be of type INTEGER or UNSIGNED and have a 
value from 0 to 255. 
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11.9.2 DBLE 


The DBLE function converts the value of the parameter x to its double¬ 
precision equivalent. DBLE has the form: 

DBLE (x) 

The parameter x must be of an arithmetic type. The value of x must 
not be too large to be represented by a double-precision number. DBLE 
returns a value of type DOUBLE. 


11.9.3 INT 


The INT function converts the value of x to its integer equivalent. It has 
the form: 

INT (x) 

The parameter x must be of an ordinal type. INT returns a value of type 
INTEGER. 

No error results if x is of type UNSIGNED and has a value greater than 
MAXINT. In that case, the value of x is converted to its equivalent as a 
32-bit integer by subtracting 2^^ from it. For example, INT(3604928157) 
returns the value -690,039,139, which is the negative integer with the 
same 32-bit representation as the unsigned integer value 3,604,928,157. 


11.9.4 ORD 


The ORD function returns the position of the parameter x as an integer in 
the ordered sequence of values of x's type. ORD has the form: 

ORD (x) 

The parameter x must be of an ordinal type. Note that the ordinal value 
of an integer is the integer itself. If x is of type UNSIGNED, its value must 
not be greater than MAXINT. 
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11.9.5 PACK 


The PACK procedure copies components of an unpacked array variable to 
a packed array variable. PACK has the following format: 

PACK (a.i.z) 

PACK requires three parameters: an unpacked array variable a, a value i 
to indicate the starting value of the index of a, and a packed array z of the 
same component type as a. 

The number of components in a must be greater than or equal to the 
number of components in z. PACK (a,i/Z) assigns the components of a, 
starting with a[i], to the array z, starting with z[low-bound], until all the 
components in z are filled. 

In general, when specifying i, keep in mind that the upper bound of a 
(that is, n) must be greater than or equal to i+v-u, where v is the upper 
bound of z and u is the lower bound of z. That is, ORD (n) must be 
greater than or equal to ORD (i) + ORD (v)-ORD (u). 

Packing need not start with the first component of array a; for example, 
PACK (A,5,P) packs components A[5] through A[24] into components P[l] 
through P[20]. 

Examples 

1. VAR 

A : ARRAY[1..20] OF 0..15; 

P : PACKED ARRAY[1..20] OF 0..16: 


FOR I := 1 TO 20 DO 
READ (A[I]); 

PACK (A. 1. P); 

This program fragment assigns the components A[l] through A[20] to 
P[l] through P[20]; that is, all the components in A are packed into P. 
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2. VAR 

A : ARRAY[1..25] OF 1..16; 

P : PACKED ARRAY[1..20] OF 1..15; 


PACK (A. 1, P); 

This procedure moves components of array A into the packed array P 
The parameter 1 specifies that the packing will start with array com¬ 
ponent A[l]. Thus, the components A[l] through A[20] are assigned 
to P[l] through P[20]. The components A[21] through A[25] are not 
moved. 


11.9.6 QUAD 

The QUAD function converts the value of x to its quadruple-precision 
equivalent. QUAD has the following form: 

QUAD (x) 

The parameter x must be of an arithmetic type. QUAD returns a value of 
type QUADRUPLE. 


11.9.7 ROUND 

The ROUND function converts the value of x to its integer equivalent by 
rounding the fractional part of the value. ROUND has the form: 

ROUND (x) 

The parameter x must be of type REAL, SINGLE, DOUBLE, or 
QUADRUPLE. The value of x must not be too large to be represented 
by an integer. The value returned is of type INTEGER. 
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11.9.8 SNGL 


The SNGL function rounds the value of x to its single-precision equivalent. 
SNGL has the form: 


SNGL (x) 


The parameter x must be of an arithmetic type. The value of x must not 
be too large to be represented by a single-precision number. SNGL returns 
a value of type SINGLE. 


11.9.9 TRUNC 


The TRUNC function converts the value of x to its integer equivalent by 
truncating the fractional part of the value. TRUNC has the form: 

TRUNC (x) 

The parameter x must be of type REAL, SINGLE, DOUBLE, or 
QUADRUPLE. The value of x must not be too large to be represented 
by an integer. TRUNC returns a value of type INTEGER. 



11.9.19 UINT 


The UINT function converts the value of x to its equivalent as an unsigned 
integer. UINT has the form: 


UINT (x) 


The parameter x must be of an ordinal type. UINT returns a value of type 
UNSIGNED. 

No error results if x is of type INTEGER and has a negative value. In that 
case, the internal representation of x is returned as an unsigned number. 
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11.9.11 


UNPACK 


The UNPACK procedure copies components of a packed array variable to 
an unpacked array variable. UNPACK has the format: 

UNPACK (z.a.i) 

The parameters required for UNPACK are identical to those required for 
PACK. The restrictions on the array indexes and the value of i are also the 
same as for PACK (see Section 11.9.5). 

Normally, you cannot pass the individual components of a packed array 
to formal VAR parameters (see Section 10.5.5); you must first unpack the 
array. 

Example 

VAR 

P : PACKED ARRAY[1..10] OF CHAR; 

A : ARRAY[1..10] OF CHAR; 

PROCEDURE Process Components 
(VAR Ch : CHAR); 


READ (P); 

UNPACK (P. A. 1); 

FOR I := 1 TO 10 DO 

Process Components (A[I]); 

This program fragment reads characters into the packed array P. The 
UNPACK procedure assigns P[l] through P[10] to the unpacked ar¬ 
ray components A[l] through A[10]. Then, for each call to Process_ 
Components, one component of A is passed to the procedure. 


11.9.12 UROUMD 

The UROUND function converts the value of x to its equivalent as an 
unsigned integer by rounding the fractional part of the value. UROUND 
has the form: 

UROUND (x) 

The parameter x must be of type REAL, SINGLE, DOUBLE, or 
QUADRUPLE. The value returned is of type UNSIGNED. 
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No error results if the value of x is negative or greater than 4,294,967,295. 
In that case, the unsigned result is the rounded parameter value MOD 
4,294,967,296. 


11.9.13 UTRUNC 

The UTRUNC function converts the value of x to its equivalent as an 
unsigned integer by truncating the fractional part of the value. UTRUNC 
has the form: 

UTRUNC (x) 

The parameter x must be of type REAL, SINGLE, DOUBLE, or 
QUADRUPLE. The value returned is of type UNSIGNED. 

No error results if the value of x is negative or greater than 4,294,967,295. 
In that case, the unsigned result is the truncated parameter value MOD 
4,294,967,296. 


11.10 Miscellaneous Routines 

VAX PASCAL supplies predeclared routines that determine the amount 
of time a process uses, record the system date and time, control error 
handling of a program, and perform miscellaneous calculations. 


11.10.1 CARD 

The CARD function returns an integer value indicating the number of 
components that are currently elements of the set expression s. CARD has 
the form: 

CARD (s) 


11.10.2 CLOCK 

The CLOCK function returns an integer value indicating the amount of 
central processor time in milliseconds used by the current process. This 
function cannot have a parameter list. Note that the result of CLOCK 
includes the amount of central processor time allocated to all previously 
executed images. 
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11.10.3 CREATE-DIRECTORY 


The CREATE-DIRECTORY procedure creates a new VMS directory or 
subdirectory. CREATE-DIRECTORY has the following form: 

CREATE.D I RECTORY (file.name [[, error^return]]) 

The file name must be a directory name, and optionally can contain a 
device name. The error return parameter is optional, and will return a 
VMS error recovery code if specified. See the Guide to Using DCL and 
Command Procedures on VAX/VMS for more information. 


11.10.4 DATE and TIME 

The predeclared procedures DATE and TIME assign the current date and 
time to a string variable. They have the form: 

DATE (str) 

TIME (str) 

Each procedure requires a parameter str of type PACKED ARRAY[l..ll] 
OF CHAR. 

For example: 

VAR 

Todays.Date, Current.Time : PACKED ARRAY[l..ll] OF CHAR; 


DATE (Todays.Date); 

TIME (Current.Time); 

These two calls return results in the following format: 

l-Feb-1968 

14:20:25.98 

As shown in this example, if the day of the month is a 1-digit number, the 
leading zero does not appear in the result; that is, a space appears before 
the date string. The time is returned in 24-hour format. Thus, the time 
shown here is 14 hours, 20 minutes, 25 seconds, and 98 hundredths of a 
second. 
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11.10.5 DELETE-FILE 

The DELETE—FILE procedure deletes one or more VMS files. DELETE— 
FILE has the form: 

DELETE_FILE (file_name I, error_return]]) 

The first file specification must contain an explicit directory name, plus 
a file name, a file type, and a version number. If you omit either the 
directory or device name, the current default device and directory are 
used. The error return parameter is optional, and will return a VMS error 
recovery code if specified. See the Guide to Using DCL and Command 
Procedures on VAX/VMS for more information. 


11.10.6 ESTABLISH 

The ESTABLISH procedure establishes a VAX condition handler that 
processes errors and reports the status of exceptions and conditions. 
ESTABLISH has the following form: 

ESTABLISH (function-identifier) 

The parameter to ESTABLISH must be the name of a routine that has the 
ASYNCHRONOUS attribute (see Chapter 14, Attributes). See the VAX 
PASCAL User's Guide for further information. 


11.10.7 EXPO 

The EXPO function returns the integer-valued exponent of the floating¬ 
point representation of the parameter x. EXPO has the form: 

EXPO (x) 

When the parameter x is of type REAL, SINGLE, or D_floating DOUBLE, 
the exponent is an integer value from -128 to 127. When x is of type 
G_floating DOUBLE, the exponent is an integer value between -1024 and 
1023. When x is of type QUADRUPLE, the exponent is an integer value 
between -16,384 and 16,383. See the VAX PASCAL User's Guide for more 
information about D__floating and G_floating double-precision numbers. 
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11.10.8 HALT 


The HALT procedure calls the VAX Run-Time Library procedure 
LIB$STOP with the condition value PAS$_HALT. Without an appro¬ 
priate condition handler, HALT terminates execution of the program. This 
procedure cannot have a parameter list. 


11.10.9 ODD 


The ODD function tests whether the value of the parameter x is odd. 
ODD has the form: 

ODD (x) 

The parameter x must be of type INTEGER or UNSIGNED, function 
returns TRUE if the value of x is odd and FALSE if the value of x is even. 


11.10.10 RENAME^FILE 

The RENAME_FILE procedure renames a VMS file. RENAME JILE 
follows the form: 

RENAME_FILE (old_f ile.name, new_f ile.name [[, error_return]] ) 

The parameter 01d__file_name specifies the names of one or more files 
whose specifications are to be changed. New_iile__name provides the new 
file specification to be applied. The error return parameter is optional, and 
will return a VMS error recovery code if specified. See the Guide to Using 
DCL and Command Procedures on VAX/VMS for more information. 


11.10.11 REVERT 

The REVERT procedure cancels a condition handler activated by the 
ESTABLISH procedure. This procedure cannot have a parameter list. See 
the VAX PASCAL User's Guide for more information. 
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11.10.12 TIME 


See DATE, Section 11.10.4. 


11.10.13 UNDEFINED 

The UNDEFINED function tests whether x contains a reserved operand. 
UNDEFINED has the form: 

UNDEFINED (x) 

The parameter x must be a variable of type REAL, SINGLE, DOUBLE, or 
QUADRUPLE. The function returns TRUE if x contains a value that has 
been reserved by VAX/VMS. (See the VAX/VMS Introduction to System 
Routines for details about VMS reserved values.) If x does not contain a 
reserved value, the function returns FALSE. An error would result if you 
tried to use x in arithmetic computations. 


11.10.14 ZERO 

The ZERO function is used in assignment statements and initializers 
to set a variable of any type (except a file type) to binary zero. It has 
no parameters. ZERO is compatible with any data type. For the rules 
governing its use in initializers, refer to Section 6.3.1.2. 

The following rules apply when using the ZERO function: 

• It is allowed only on the right hand side of an assignment statement. 

• The target can be a variable or, within the body of a function, the 
function's name. 
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Chapter 12 

Input and Output Processing 


VAX PASCAL includes an extensive set of predeclared routines governing 
input/output (I/O) processing. These routines enable you to establish 
files with sequential, relative, or indexed organization and process them 
by sequential, direct, or keyed access. This chapter describes general I/O 
processing and the related predeclared routines, and explains the concepts 
of terminal I/O. For specific information on VAX PASCAL I/O in relation 
to VAX Record Management Services, see the VAX PASCAL User's Guide. 


12.1 I/O Processing—File Characteristics 

The following sections describe in general terms the elements of PASCAL 
I/O processing: records, files, and access methods. See the VAX PASCAL 
User's Guide for more details. 


12.1.1 RMS Records 

VAX PASCAL uses the VAX Record Management Services (RMS) subsys¬ 
tem for data storage, retrieval, and modification. RMS is the system VAX 
PASCAL uses to transfer data between an input or output device and a 
PASCAL program. Both RMS and PASCAL use the term "file" to define 
an organized collection of logically related data items. However, PASCAL 
considers files to consist of file components, while RMS divides files into 
records. Since RECORD is a predefined structured type in PASCAL, this 
chapter uses the term "file component" whenever possible. When it is 
necessary to discuss particular characteristics of RMS records, the term 
"RMS record" is used. 
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Generally, a PASCAL file component exactly corresponds to an RMS 
record. If the file is of a type other than TEXT, an RMS record consists 
of a single file component. For example, in a file of type INTEGER, each 
RMS record consists of one integer value. Each I/O statement accesses 
one file component at a time. 

Components of PASCAL text files do not correspond to RMS records. A 
file of type TEXT has components of type CHAR and is divided into lines, 
Each line of character components, terminated by an end-of-line marker, 
constitutes an RMS record. 

RMS stores records in one of the following formats: 

• Fixed length 

• Variable record format 

• Stream record format 

Text files are usually, but not necessarily, stored as variable-length RMS 
records. 


12.1.1.1 Fixed-Length RMS Records 

In a file composed of fixed-length RMS records, all file components must 
contain the same number of bytes. You can access fixed-length RMS 
records with sequential, direct, or keyed access methods. A file with 
sequential organization that is opened for direct access may contain only 
fixed-length RMS records to allow the record location to be computed 
correctly. An indexed file created by VAX PASCAL usually consists solely 
of fixed-length RMS records. 


12.1.1.2 Variable record format 

There are two types of variable record formats: true variable-length record 
format, and variable with fixed-length control format. 

The variable-length record format refers to file records that are not all of 
the same size. The variable-length RMS records can contain any number 
of bytes, up to the record length specified when the file was created. 
Variable-length RMS records are prefixed by a count field whose value 
indicates the number of bytes in each individual record and, therefore, the 
actual size of the record. 
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However, variable with fixed-length control RMS records are similiar to 
the variable-length record format except that it also contains a control 
area of fixed length. A fixed control area lets you construct variable- 
length records that contain an additional fixed-length piece of data that 
will always be present and will have a "loose" association with the other 
contents of the record. This association is considered "loose" because 
each of the contents can be considered as separate for the purpose of 
processing, even though they are stored together. 

In VAX PASCAL, only files of type TEXT and VARYING OF CHAR 
the variable-length record format, and thus truly have RMS records of 
different lengths. All other PASCAL file types use the variable with fixed- 
length control format, so they contain components of uniform size. For 
more information on variable-length record format, see the VAX Record 
Management Services Reference Manual. 


12.1.1.3 Stream record format 

Stream format is a record format in which records in a file are delimited by 
special characters or character sequences called terminators. Terminators 
are part of the record they delimit. The data in a stream format file is 
interpreted as a continuous sequence of bytes, without control information 
such as record counts, segment flags, or other system-supplied boundaries. 
Stream record format is supported for sequential files only. STREAM_CR 
and STREAM_LF indicate carriage return and line-feed, respectively. 

For more information on stream format, see the VAX Record Management 
Services Reference Manual. 


12.1.2 RMS Files 

An RMS file is a collection of logically related components that are 
arranged in a specific order and treated as a unit. There are three kinds 
of file arrangement or organization: sequential, relative, and indexed. The 
organization of a file is determined when the file is created. 

Files are normally stored on disk, although sequential files may also be 
stored on magnetic tape. Other peripheral devices, such as terminals, card 
readers, and line printers, are treated as sequential files. 
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12.1.2.1 

Sequential Organization 

Components of a sequential file are ordered in physical sequence. Each 
component, except the first, has another component preceding it, and 
each component, except the last, has another component following it. The 
physical order in which components appear is identical to the order in 
which they were written to the file. 

12.1.2.2 

Relative Organization 

Components of a relative file consist of a specified number of fixed-length 
cells ordered in physical sequence. These cells are numbered from 1 
(the first) to n (the last), with each number representing the location of a 
component relative to the beginning of the file. Each cell either contains 
a single file component or is empty. You refer to a specific component in 
the file by its cell number (component number). 

12.1.2.3 

Indexed Organization 

Components of an indexed file are ordered on the basis of certain data 
fields, called keys, that are contained in each component. 

When you design an indexed file, you decide which fields in the file 
components are to be the keys; the contents of these fields will be used 
to identify specific components in subsequent operations. The length of 
a key field and its relative position in the component are identical for all 
components in the file. 

When you create an indexed file, you must define at least one key for 
the file by using the KEY attribute (see Chapter 14, Attributes). This 
mandatory key is called the primary key of the file. By default, the 
primary key of each component must have a unique value; however, you 
can change the default to allow duplicate primary keys. You can also 
define other keys, as many as 254 of them, called alternate keys. An 
alternate key is a field that is of the same length and in the same position 
in each component in the file. 
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12.1.3 Access Methods 


The access method is the technique a program uses to retrieve and 
store file components. VAX PASCAL supports three access methods: 
sequential, direct, and keyed. 

The access method is specified as part of the OPEN procedure, which 
opens a file. A file's access method cannot be changed unless the file 
is first closed with the CLOSE procedure and then opened again with a 
different access method specification. 

A file may always be processed sequentially, even when the specified 
access method is direct or keyed. If the access method is not specified, 
VAX PASCAL defaults to the sequential method. 

Table 12-1 shows the valid access methods for each kind of file organiza¬ 
tion. 


Table 12-1: Access Methods for File Organizations 


File Organization 

Access Method 


Sequential 

Direct 

Keyed 

Sequential 

Yes 

Yesl 

No 

Relative 

Yes 

Yes 

No 

Indexed 

Yes 

No 

Yes 


1. Components must be fixed-length RMS records. 


12.1.3.1 Sequential Access 

Sequential access means that components are processed in sequence. For 
a sequential file, the sequence is the physical sequence of the components. 
For a relative file, the sequence is the cell number sequence. For an 
indexed file, the sequence is the ascending order of primary key values. If 
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two components in an indexed file have the same key value, the sequence 
is the order of their insertion in the file. 


12.1.3.2 Direct Access 

Direct access means that the components are processed in an order spec¬ 
ified by FIND and LOCATE procedures (see Sections 12.7.2 and 12.7.3). 
FIND positions a direct-access file to accept input; LOCATE positions 
the file to write output. A file with sequential organization must have 
fixed-length RMS records in order to be accessed by the direct method. 


12.1.3.3 Keyed Access 

Keyed access means that the components are processed in an order 
determined by the value of a key field. You use the FINDK procedure 
to indicate the key value of the component you wish to process. FINDK 
positions the file to the component that corresponds to the key value you 
specify as a parameter. (See Section 12.8.1 for more information.) 


12.2 I/O Procedures 

VAX PASCAL provides predeclared procedures and functions to perform 
input and output operations on file variables. These routines, which may 
operate differently depending on a file's organization and access method, 
are arranged in the following categories in this chapter: 

General Procedures 

• OPEN—Opens a VAX/VMS file with specified characteristics 

• CLOSE—Closes a file 

Sequential Access Input Procedures 

• GET—Reads a file component into the file buffer variable 

• READ—Reads a file component into a specified variable 

• RESET—Prepares a file for input 

• EXTEND—Opens an existing file and prepares it for output 

• PUT—Writes the file buffer variable to the specified file 

• REWRITE—Truncates a file to length zero and prepares it for output 
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• WRITE—Writes specified values to a file 

Miscellaneous Routines 

• EOF—Indicates the end of an input file 

• STATUS—Returns status resulting from a file operation 

• TRUNCATE—Truncates records from a file 

• UFB—Indicates whether the file buffer is undefined 

• UNLOCK—Unlocks the current component in the file 

Text File Manipulation Routines 

• EOLN—Indicates the end of an input line 

• LINELIMIT—Terminates program execution after a specified number 
of lines have been written to a text file 

• PAGE—Advances output to the next page of a text file 

• READLN—Reads a line from a text file 

• WRITE—Allows you to specify field width to format the values being 
written to a text file 

• WRITELN—Writes a line to a text file 
Direct Access Procedures 

• DELETE—Deletes the current component from a file 

• FIND—Performs direct access to a file for input operations 

• LOCATE—Performs direct access to a file for output operations 

• UPDATE—Writes the contents of the file buffer back into the current 
component 

Keyed Access Procedures 

• FINDK—Accesses a component of an indexed file 

• RESETK—Readies an indexed file for reading 

The I/O procedures (but not the I/O functions) can accept an additional 
parameter that specifies the action to be taken should the procedure fail 
to execute successfully. This optional parameter is called ERROR and can 
accept two values, CONTINUE and MESSAGE. If you specify ERROR 
:= CONTINUE, the program continues to execute regardless of any error 
conditions encountered during execution of the procedure. If you specify 
ERROR := MESSAGE, an appropriate error message will be printed and 
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program execution will cease if an error occurs. By default, an error 
message is printed and program execution is terminated after the first error 
in an I/O operation is encountered. 

ERROR must be the last parameter in a procedure's parameter list. You 
must use nonpositional syntax to call the procedure. You cannot use the 
ERROR parameter with the I/O functions EOF, UFB, and EOLN, nor with 
any reference to the file buffer. For further information, consult the VAX 
PASCAL User's Guide. 

At any time during the execution of a process, a file variable is considered 
to be in one of three modes: Inspection, Generation, or Undefined. When 
a file is reading input, it is in Inspection mode. When output is being 
written to a file, the file is in Generation mode. A file in an undefined 
state of processing is in Undefined mode. The mode often determines the 
valid operations for the file. Table 12-2 shows the mode required before 
execution of each I/O routine, and the mode in which the file is left after 
each routine has executed. 


Table 12-2: File Mode During I/O Processing 


I/O Routine 

Mode Before 

Execution 

Mode After 

Execution 

OPEN 

Undefined 

Undefined 

CLOSE 

Any 

Undefined 

GET 

Inspection 

Inspection 

READ 

Inspection 

Inspection 

RESET 

Any 

Inspection 

EXTEND 

Any 

Generation 

PUT 

Generation 

Generation 

REWRITE 

Any 

Generation 

WRITE 

Generation, unless keyed 
access, which may be any 
mode 

Generation 

EOF 

Inspection or Generation 

No change 

STATUS 

Any 

No change, unless error 

TRUNCATE 

Inspection 

Generation 
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Table 12-2 (Cont.): File Mode During I/O Processing 


I/O Routine 

Mode Before 
Execution 

Mode After 

Execution 

UFB 

Any 

No change 

UNLOCK 

Inspection 

Inspection 

EOLN 

Inspection 

Inspection 

LINELIMIT 

Any 

No change 

PAGE 

Generation 

No change 

READLN 

Inspection 

Inspection 

WRITELN 

Generation 

Generation 

DELETE 

Inspection 

Inspection 

FIND 

Any 

Inspection if successful; 
Undefined if unsuccessful 

LOCATE 

Any 

Generation 

UPDATE 

Inspection 

Inspection 

FINDK 

Any 

Inspection if successful; 
Undefined if unsuccessful 

RESETK 

Any 

Inspection 


12.2.1 OPEN Procedure 

The OPEN procedure opens a file, defines the file access method, and 
allows you to specify file parameters. The term "record" in the parameter 
names of the OPEN procedure indicates an RMS record. The OPEN 
procedure has the following format: 
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1 . 


OPEN (file-variable 
[[.file-name]] 

[[ ,f ile-historyU 
[[, record-length]] 

[[, access-methodU 
I .record-type]] 

[I. carriage-controll 
[[. organization]] 

[[ .disposition]] 

[[ .file-sharing]] 

[[ .user-actionU 
[[. def ault-f ile-namel 
[[.ERROR := error-recoveryl 

2. OPEN FILE-VARIABLE := file-variable 

^ I.FILE-NAME := file-name]] 

[[.FILE-HISTORY := file-historyl 
[[.RECORD-LENGTH := record-lengthi 
[[.ACCESS-METHOD := access-methodi 
[[.RECORD-TYPE := record-typel 
( [[.CARRIAGE-CONTROL := carriage-controll ....) 

I.ORGANIZATION := organization! 

[[.DISPOSITION := disposition! 

[[.SHARING := file-sharing! 

[[.USER-ACTION := user-action! 

I.DEFAULT := default-file-name! 

[[.ERROR := error-recovery! 

file-variable 

The name of the file variable associated with the file to be opened, 

file-name 

Information about the file for the operating system. 

The file variable and file name designate the file to be opened. Except for 
the file variable, all parameters are optional. The remaining parameters 
are summarized in Table 12-3 and discussed in detail in the following 
sections. 

If the parameter names are not used, as in format 1, the parameters must 
be listed in the specified order. If parameter names are used, as in format 
2, the parameters can be specified in any order. You can mix the use 
of positional and nonpositional parameters, but once a nonpositional 
parameter name has been used, all the following parameter values must 
be nonpositional. 
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Table 12~3: Summary of OPEN Procedure Parameters 


Parameter 

Parameter Values 

Default 

File-variable 

Any file type 

None, the file variable is a re¬ 
quired parameter 

File-name 

Any character string expres¬ 
sion 

File-variable name 

History 

OLD, NEW, READONLY, 
UNKNOWN 

NEW (OLD, if an external 
file is opened using RESET or 
EXTEND) 

Record-length 

Any positive integer value 

133 bytes for text files; for 
other files, parameter is ig¬ 
nored 

Access-method 

DIRECT, KEYED, or 
SEQUENTIAL 

SEQUENTIAL 

Record-type 

FIXED, VARIABLE, 
STREAM, STREAM_CR, 
STREAM__LF 

VARIABLE for new text files 
and FILE OF VARYING; 
FIXED for other new files; for 
old files, record type estab¬ 
lished at file creation 

Carriage- 

control 

LIST, CARRIAGE, 
FORTRAN, 

NOCARRIAGE, NONE 

LIST for text files and FILE 

OF 

VARYING; NOCARRIAGE 
for all other files; old files use 
their existing carriage-control 
parameters 

Organization 

SEQUENTIAL, 

RELATIVE, 

INDEXED 

SEQUENTIAL for new files; 
previous organization for ex¬ 
isting files 

Disposition 

SAVE, DELETE, PRINT, 
PRINT_DELETE, 

SUBMIT, 

SUBMIT_DELETE 

SAVE for named files; DE¬ 
LETE for files without a file¬ 
name parameter 
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Table 12-3 (Cont.): Summary of OPEN Procedure Parameters 


Parameter 

Parameter Values 

Default 

Sharing 

READONLY, 

READWRITE, 

NONE 

READONLY if file history is 
READONLY; NONE for all 
other files 

User-action 

Function-identifier 

None 

Default-file¬ 

name 

Any character string expres¬ 
sion 

None 

Error-recovery 

CONTINUE, MESSAGE 

MESSAGE 


Before the OPEN procedure is called, the file is in Undefined mode; its 
mode does not change after OPEN has been executed. 

You cannot use OPEN on a file variable that is already open. 

If INPUT and OUTPUT are used, they are implicitly opened when the 
program begins execution, unless you explicitly open them with OPEN 
procedures as the first executable statements of the program. INPUT is 
opened with a history of READONLY unless you specify otherwise. 

Because the RESET, REWRITE, and EXTEND procedures implicitly open 
files, you need not always use the OPEN procedure. RESET, REWRITE, 
and EXTEND impose the defaults shown in Tables 12-3 and 12-4. For 
the file history parameter, RESET and EXTEND use a default of OLD, and 
REWRITE uses a default of NEW. 

You must use the OPEN procedure to do the following: 

• Create a text file with fixed-length RMS records 

• Create a file with RELATIVE or INDEXED organization 

• Open a file for DIRECT or KEYED access 

• Specify a line length other than 133 for a line in a text file 


12.2.1.1 File Variable 

The file variable parameter is the name of the file variable associated with 
the file to be opened. 
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12.2.1.2 File Name 


The file name is the name of a file which is represented by a PASCAL file 
variable in an OPEN procedure. For the file name, you specify a character¬ 
string expression (compile-time or run-time) that contains a VAX/VMS file 
specification or a logical name. For instance, in the example OPEN (A, 
"FOOBAR.DAT"), FOOBAR.DAT is the file name. Note that apostrophes 
are required to delimit a character-string constant or a logical name used 
as the file name. See the VAX PASCAL User's Guide for more information 
about logical names. 

Use of the file name is optional, however, if you omit it, and do not 
declare the file variable as an external file, the newly created file has no 
name. If you omit the file name of an external file, the default values 
shown in Table 12-4 are used. 


Table 12-4: Default Values for VAX/VMS File Specifications 


Element 

Default 


Node 

Local computer 


Device 

Current user device 


Directory 

Current user directory 


File name 

PASCAL file variable name or 
name translation 

its logical 

File type 

DAT 


Version number (history) 

OLD: highest current number 
NEW: highest current number 

+ 1 


12.2.1.3 History 

The history parameter indicates whether the specified file exists or must 
be created. A file history of NEW indicates that a new file must be created 
with the specified characteristics. NEW is the default value except when 
the file has been opened with the EXTEND or^RESET procedure. 


Input and Output Processing 12-13 







A file history of OLD indicates that an existing file is to be opened. An 
error occurs if the file cannot be found. OLD is the default value for files 
opened with the EXTEND or RESET procedure. 

A file history of READONLY indicates that an existing file is being opened 
only for reading. An error occurs if you attempt to write to a file that has 
been opened with a READONLY file history. 

A file history of UNKNOWN indicates that an old file should be opened; 
if no old file exists, a new file is created with the specified characteristics. 


12.2.1.4 Record Length 

The value of the record-length parameter is a positive integer that specifies 
the maximum size in bytes for a line in a text file or a file of type FILE 
OF VARYING. The default value is 133 bytes. For all other files, the 
record-length parameter is ignored. 

By default, a file of type TEXT or VARYING OF CHAR has variable-length 
RMS records. The record length specified for such a file determines the 
length of the longest line in the file. Each line can contain any number 
of characters up to the record length specified. If you create a file of type 
TEXT or VARYING OF CHAR with fixed-length RMS records, the record 
length determines the exact length of each line in the file. Each line must 
contain the number of characters specified by the record length. 

If you do not specify a record length for an existing file, the length 
specified at the file's creation is assumed. 

If you create a sequential-organization file with variable-length records, 
the maximum record length is recorded in the file only if you specify 
the record-length parameter. If you wish to OPEN variable-length text 
files without having to know specific record lengths, you should use the 
following OPEN statement: 

OPEN (FILE.VARIABLE :* F. HISTORY :* READONLY. ERROR :* CONTINUE) 

When OPENing existing variable-length files, if the record-length parame¬ 
ter is not specified, the record-length in the file's header is used. 
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12.2.1.5 Access Method 

The access-method parameter specifies the method by which file com¬ 
ponents are to be accessed. With the SEQUENTIAL method, you can 
access files with fixed- or variable-length RMS records. The default access 
method is SEQUENTIAL. 

The DIRECT method allows you to use the FIND and LOCATE procedures 
to gain random access to sequential or relative files with fixed-length RMS 
records. You cannot use the DIRECT method to access a sequential file 
that has variable-length records. 

With the KEYED method, you can access indexed files using the FINDK 
procedure to locate a specific component. You cannot open text files for 
KEYED access. 


12.2.1.6 Record Type 

The record-type parameter specifies the structure of the RMS records 
in the file. A value of FIXED indicates that all file components have 
the same length. A value of VARIABLE indicates that the length of 
the file components can vary. A value of STREAM, STREAM_CR, or 
STREAM-_LF indicates stream record format, carriage return, and line 
feed, respectively. 

VARIABLE is the default record type for a new file of type TEXT or 
VARYING OF CHAR; other new files use FIXED as the default. For an 
existing file, the default is the record type associated with the file at its 
creation. 

Stream format is a record format in which records in a file are delimited by 
special characters or character sequences called terminators. Terminators 
are part of the record they delimit. The data in a stream format file is 
interpreted as a continuous sequence of bytes, without control information 
such as record counts, segment flags, or other system-supplied boundaries. 
Stream record format is supported for sequential files only. 
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12.2.1.7 Carriage Control 

The carriage-control parameter specifies the carriage-control format for 
the file. A value of LIST indicates single spacing between components. 
LIST is the default option for all text files, including the predeclared file 
OUTPUT and files of type VARYING OF CHAR. 

The CARRIAGE or FORTRAN option indicates that the first character of 
every output line is a carriage-control character. 

The NOCARRIAGE or NONE option specifies that the file has no carriage 
control. NONE is the default option, except for text files and files of type 
VARYING OF CHAR. 

Table 12-5 summarizes the carriage-control characters and their effects. 
For purposes of carriage control, any characters other than those listed in 
the table are ignored. 

Table 12-5: Carriage-Control Characters 


Character Meaning 


' -I- ' Overprinting: starts output at the beginning of the current line 

' ' Single spacing: starts output at the beginning of the next line 

'0' Double spacing: skips a line before starting output 

' 1' Paging: starts output at the top of a new page 

Prompting: starts output at the beginning of the next line and 
suppresses carriage return at the end of the line 

' (0) Prompting with overprinting: suppresses line feed at the begin¬ 

ning of the line and carriage return at the end of the line; note 
that this character is the ASCII NUL character 
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12.2.1.8 Organization 

The organization parameter specifies the physical organization of a newly 
created RMS file; it does not determine the manner in which the file is to 
be accessed. (See Table 12-1 for the valid access methods for each file 
organization.) 

The organization of an existing file must agree with the organization 
specified when the file is opened, either with SEQUENTIAL, RELATIVE, 
or INDEXED. The default value for new files is SEQUENTIAL. 


12.2.1.9 Disposition 

The disposition parameter describes what is to be done with the file when 
it is closed. If you specify SAVE, the file is retained. SAVE is the default 
value for external files. 

If you specify DELETE, the file is deleted. If you specify PRINT, the file is 
submitted to the system line printer spooler and is not deleted. The file is 
deleted after being printed if you specify PRINT_DELETE. 

If you specify SUBMIT, the file is submitted to the batch job queue and 
is not deleted. The file is deleted after being processed if you specify 
SUBMIT_DELETE. 

An unnamed file is automatically deleted when it is closed and cannot 
be saved. The only disposition you may specify for an unnamed file is 
DELETE. 


12.2.1.10 Sharing 

The sharing parameter indicates whether other programs can access the 
file while it is open. A value of READONLY indicates that other programs 
can read the file while it is open but cannot write to it. READONLY is the 
default value for files that have a history of READONLY. 

A value of READWRITE indicates that other programs can read and write 
to the file while it is open. 

A value of NONE denies other programs all access to the file while it is 
open. NONE is the default value for files with histories of NEW, OLD, 
and UNKNOWN. 

If you specify SHARING := READWRITE for an existing file with se¬ 
quential organization, you must explicitly specify ORGANIZATION := 
SEQUENTIAL in the same OPEN procedure. 
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12.2.1.11 

User Action 

The user-action parameter causes the Run-Time Library to call a user- 
written function to open the file, instead of calling RMS to open the file 
according to its usual defaults. The user-action parameter allows access to 
VAX RMS facilities not directly available to a VAX PASCAL program. 

A user-action function is expected to perform the RMS tasks that would 
have been invoked automatically, but it may also perform additional tasks. 
The required tasks are $OPEN and $CONNECT for existing files, and 
$CREATE and $CONNECT for new files. The function should return a 
value indicating whether the file was successfully opened. See the VAX 
PASCAL User's Guide for more information on the user-action parameter. 

12.2.1.12 

Default File Name 

DEFAULT allows users access to the RMS Default Filename parameter, 
and is used to set file specification defaults. The following example shows 
the use of the DEFAULT keyword. 

Example 

VAR 

MY.FILE : VARYING [20] OF CHAR; 

MY.FILE.VAR : TEXT; 

BEGIN 

MY.FILE :* 'FOO.BAR'; 

OPEN ( FILE.NAME :* MY.FILE, 

FILE.VARIABLE := MY_FILE_VAR. 

DEFAULT :* '[ANOTHER.DIR]'); 

The OPEN statement in the example above will open the file called 
'[ANOTHER.DIRJFOO.BAR'. 

12.2.1.13 

Error Recovery 

The error-recovery parameter specifies the action taken in a program if the 
OPEN procedure fails to execute successfully. 

If you specify ERROR := CONTINUE, the program continues to execute 
regardless of any error conditions encountered. If you specify ERROR 
:= MESSAGE, the appropriate error message is generated and execution 
ceases if the program results in an error. By default, VAX PASCAL ceases 
execution after the first error. 
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12.2.1.14 Examples 


Examples 

1. PROGRAM Main (Userguide); 
VAR 

Userguide : TEXT; 


OPEN (Userguide): 

When the OPEN procedure is executed, the system first attempts to 
use Userguide as a logical name. If no such logical name is assigned, 
the system creates the file USERGUIDE.DAT in the default device and 
directory on the local computer. If Userguide had not been specified 
as an external file in the program header, the OPEN procedure would 
have created an internal file. By default, the file is created with a 
record length of 133 bytes and RMS records of variable length. The 
system then opens the file for sequential access. 

2. OPEN (Albums, 

’SYS$DISK:[EASTWEST]INVENT', 

ACCESS_METHOD := DIRECT. 

HISTORY :* OLD); 

This example opens the existing VAX/VMS file [EASTWEST] 
INVENT.DAT for direct access. The VAX/VMS file is known to 
the PASCAL program as the file variable Albums. The order of the 
parameters for this OPEN procedure has been changed by the use of 
nonpositional parameter names. 

3. OPEN (Solar, 

'Energy', 

HISTORY := NEW. 

RECORD.TYPE := FIXED); 

This procedure creates a file with the VAX/VMS specification desig¬ 
nated by the logical name Energy. The file is created with fixed-length 
RMS records. 
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4. OPEN (Journal.Account 8 , 

'JOURNAL.DAT'. 

HISTORY := UNKNOWN. 

ACCESS.METHOD := KEYED. 

ORGANIZATION :* INDEXED); 

If the file JOURNAL.DAT already exists, this procedure will open it; 
otherwise, a new file named JOURNAL.DAT will be created with the 
specified characteristics. If the file does exist, it must have the same 
characteristics as those in the parameter list of the OPEN procedure. 
The file is opened with indexed organization for keyed access. 

5. OPEN (Checking.Balance. 

ORGANIZATION := RELATIVE. 

ACCESS.METHOD := DIRECT. 

USER.ACTION := Open.Checking); 

This procedure opens the file Checking_Balance by calling the user- 
action function Open-Checking. The Open—Checking function should 
perform the RMS tasks $CREATE and $CONNECT, in addition to any 
other operations. The function returns a value indicating whether the 
file was successfully opened with relative organization for direct access. 


12.2.2 CLOSE Procedure 

The CLOSE procedure closes an open file, and has the following form: 

1. CLOSE (file-variable ) 

[[ .disposition!] 

[[ .user-actionll 
[[.ERROR := error-recoveryl 

2. CLOSE FILE-VARIABLE := file-variable 

{ [[.DISPOSITION := disposition]] 
[[.USERJVCTION := user-action]] 

[[.ERROR := error-recoveryl 

file-variable 

The name of the file variable associated with the file to be closed. 
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Except for the file variable, all parameters to the CLOSE procedure 
are optional. If the nonpositional parameter names are not used, as in 
format 1, the parameters must be in the order specified. If nonpositional 
parameter names are used, as in format 2, the parameters can be specified 
in any order. 

Execution of the CLOSE procedure causes the system to close the file and, 
if the file is internal, to delete it. Each file is automatically closed when 
control passes from the block in which it is declared. 

You cannot close a file that has not been "opened" (either explicitly by 
the OPEN procedure, or implicitly by the EXTEND, RESET, or REWRITE 
procedure). If you attempt to close a file that was never opened, an error 
occurs. 

The file may be in any mode (Inspection, Generation, or Undefined) 
before the CLOSE procedure is called. Execution of CLOSE sets the mode 
to Undefined. 


12.2.2.1 Disposition 

The disposition parameter describes what is to be done with the file when 
it is closed. The parameter values and the defaults are the same as those 
for the disposition parameter in the OPEN procedure (refer to Table 12-4 
for defaults). 

If a disposition value was specified in the OPEN procedure, an identical 
disposition value is usually specified in the CLOSE procedure. If the two 
values are different, the value in the CLOSE procedure takes precedence. 


12.2.2.2 User Action 

The user-action parameter causes the Run-Time Library to call a user- 
written function to close the file instead of closing the file according to 
its usual defaults. The user-action parameter allows access to VAX RMS 
facilities not explicitly available to a PASCAL program. 

A user-action function is expected to perform the RMS $CLOSE task that 
would have been invoked automatically, but it may perform additional 
tasks. The function should return a value indicating whether the file 
was successfully closed. See the VAX PASCAL User's Guide for more 
information. 
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12.2.2.3 Error Recovery 

The error-recovery parameter specifies the action the program should 
take if the CLOSE procedure fails to execute successfully. The parameter 
values and the default action are the same as those for the error-recovery 
parameter in the OPEN procedure (see Section 12.2.1). 


12.2.2.4 Examples 

Examples 

1. CLOSE (Albums); 

This procedure closes the file Albums and deletes it if it is an internal 
file. 

2. CLOSE (Products. 

DISPOSITION :* PRINT.DELETE); 

This procedure closes the files Products, submits it to the line printer, 
and deletes it after the hard copy is produced. The file must not have 
been opened with a file history of READONLY. 

3. CLOSE (Shoe_Inventory, 

USER.ACTION := Close.File); 

This procedure calls the user-action function Close Jile, which must 
perform the RMS task $CLOSE in addition to any other operations. 
The function must return a value to indicate whether the file Shoe_« 
Inventory was successfully closed. 


12.3 Sequential Access Input Procedures 

This section describes input procedures that apply primarily to files opened 
for sequential access; however, these procedures can also be used on files 
opened for direct and keyed access. 

The sequential access input procedures are: 

• GET 

• READ 

• RESET 
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12.3.1 GET Procedure 


The GET procedure advances the file position and reads the next com¬ 
ponent of the file into the file buffer variable. If the file has relative or 
indexed organization, the component is also locked. The format of the 
GET procedure is: 

GET (file-variable I, ERROR := error-recovery]]) 

file-variable 

The name of the file variable associated with the input file. 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the GET procedure is executing (see Section 12.2.2.3). 

Before the GET procedure is used for the first time to read one or more 
file components, the file must be in Inspection mode and prepared for 
reading input. Depending on the access method specified when the file 
was opened, you can prepare the file for input in the following ways: 

• If the file is open for sequential access, call the RESET procedure. 
RESET sets the mode to Inspection, advances the file position to the 
first component, and assigns the component's value to the file buffer 
variable. 

• If the file is open for direct access, call either the RESET or FIND 
procedure, either of which positions the file. 

• If the file is open for keyed access, call the FINDK, RESET, or RESETK 
procedure to position the file. 

As a result of the GET procedure, the file remains in Inspection mode, 
and the file position advances to the next component. This component 
is locked and EOF and UFB are set to FALSE. Unless the end-of-file 
marker is encountered, the file buffer variable takes on the value of that 
component. If no component is found, EOF and UFB are set to TRUE. The 
following example shows the use of GET: 

RESET (Books); 

Newrec ;= Books"; 

GET (Books); 
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After execution of the RESET procedure, the value of the file buffer 
variable Books" is equal to the value of the first component of the file. 

The assignment statement assigns this value to the variable Newrec. 

The GET procedure then assigns the value of the second component to 
Books", advancing the file position to the second component. Another 
GET procedure will advance the file position to the third component. This 
sequence of events is illustrated in Figure 12-1. 

Figure 12-1: File Position After GET 
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By using the GET procedure repeatedly, you can read sequentially through 
a file. 

When called for a file w'th relative organization, GET skips any nonexis¬ 
tent components to find the next component. A successful GET operation 
locks the component and sets EOF and UFB to FALSE. If a component is 
not found, EOF and UFB become TRUE. 
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When you reach the end of the file, EOF automatically becomes TRUE 
and the file buffer variable becomes undefined (UFB is TRUE). If GET is 
used when EOF is TRUE, a run-time error occurs and program execution 
is aborted. 

Example 

GET (Phones); 

This example reads the next component of the file Phones into the 
file buffer variable Phones''. Prior to executing GET, the value of EOF 
(Phones) must be FALSE; if it is TRUE, an error occurs. 


12.3.2 READ Procedure 

The READ procedure reads one or more file components into a variable. 

It has the form: 

READ ( Ifile-variable, ]] {variable-identifier 
II:radix-specifier]] }. . • < 

I, ERROR := error-recoveryH ) 

file-variable 

The name of the file variable associated with the input file. If you omit 
the name of the file, the default is INPUT. 

variable-identifier 

The name of the variable into which a file component will be read; 
multiple identifiers must be separated with commas. 

radix-specifier 

The format values BIN, OCT, and HEX. These values, when used on a 
variable identifier, will convert the variable to its respective BIN, OCT, or 
HEX equivalent (see below). 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the READ procedure is executing (see Section 12.2.2.3). 
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You may optionally include a radix specifier on the variable identifier. For 
example: 

READ ( I : HEX ); 

This example will read into the variable I using HEX format. Using a radix 
specifier allows you to read a variable of any type except a type containing 
a file component. Or, for instance, you may read an entire array or record, 
which is otherwise not possible. 

The file must be in Inspection mode before READ is called. The file 
remains in Inspection mode after execution of a READ procedure. 

By definition, the READ procedure for a nontext file performs an assign¬ 
ment statement, a GET procedure, and an UNLOCK procedure for each 
variable. Thus, the procedure call 

READ (file-variable, variable-identifier); 

is similar to 

variable-identifier := file-variable"; 

GET (file-variable); 

UNLOCK (file-variable); 

The READ procedure reads from the file until it has found a value for each 
variable in the list. The first value read is assigned to the first variable in 
the list, the second value read is assigned to the second variable, and so 
on. The values and the variables must be of assignment-compatible types. 
Reading stops if an error occurs. 

For a text file, more than one file component (that is, more than one 
character) can be read into a single variable. For example, many text file 
components can be read into a string or numeric variable. The READ 
procedure repeats the assignment, GET, and UNLOCK process until it 
has read a sequence of characters that represent a legal value for the 
next variable in the parameter list. The procedure continues to read 
components from the file until it has assigned a value to each variable in 
the list. 

After the last character has been read from a line of a text file, EOLN is 
TRUE and the file buffer variable contains a space. Unless you are reading 
into a character or string variable, a call to READ at this point skips over 
the end-of-line marker and positions the file at the beginning of the next 
line. If you are reading into a variable of type CHAR when EOLN is 
TRUE, the space is read and assigned to the variable, and the file position 
advances. If you are reading into a string variable when EOLN becomes 
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TRUE, the file position does not change. In the latter case, you should do 
a READLN to advance the file position past the end-of-line marker. 

Values from a text file can be read into variables of integer, real, character, 
string, and enumerated types. Text file values to be read into integer, 
real, and enumerated-type variables can be preceded in the file by any 
number of spaces, tabs, and end-of-line markers. Values to be read into 
character variables, however, must not be separated because they are read 
and assigned character by character. If an invalid character is encountered 
during the reading of a text file item, the value being formed is terminated. 

When reading constant identifiers of an enumerated type from a text file, 
the PASCAL run-time system reads all characters in the identifier, but 
recognizes only the first 31 characters. You need input only enough char¬ 
acters to make the identifier unique among the other constant identifiers of 
its type. Text input data for enumerated types may consist of both lower- 
and uppercase characters. 

Boolean input data in text files follow the same rules as other enumerated 
types. For example, the following character combinations, all of which 
could appear in a text file, are equivalent: TRUE, True, T, t, tr. 

You can use the READ procedure to read a sequence of characters from 
a text file into a variable of type PACKED ARRAY OF CHAR. Successive 
characters from the file are assigned to components of the array, in order, 
until each component has been assigned a value. If any characters remain 
on the line after the array is full, the next READ procedure begins with 
the next character on that line. If the end of the line is encountered before 
the array is full, spaces are assigned to the remaining components. 

You can also read text file characters into a variable of type VARYING OF 
CHAR. Characters are assigned to a VARYING string in a manner similar 
to that in which they are assigned to a packed array. However, if the 
end-of-line marker is encountered before the VARYING string has been 
filled to its maximum length, the VARYING string value is not padded 
with spaces. Instead, its current length is set equal to the number of 
characters that have been read into it. If you call the READ procedure 
with a parameter of type VARYING, and EOLN is TRUE, no characters 
are read into the VARYING string; its current length is set to zero. 

Every nonempty text file ends with an end-of-line marker and an end- 
of-file marker. Therefore, the function EOF never becomes TRUE when 
you are reading strings with the READ procedure. To test EOF when 
reading strings, use a READLN procedure to advance the file beyond the 
end-of-line marker. 
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Examples 

1. READ (Temp, Age, Weight): 

Assume that Temp, Age, and Weight are real variables, and that the 
following values have been entered at the terminal: 

98.6 11 75 

The variable Temp is assigned the value 98.6, Age is assigned the 
value 11.0, and Weight is assigned the value 75.0. You need not type 
all three values on the same line. 

2. TYPE 

string = PACKED ARRAY[1..20] OF CHAR; 

VAR 

N2une8 : TEXT; 

Pres, Veep : String; 


READ (Names, Pres, Veep); 

This program fragment declares and reads the file Names, which 
contains the following character strings: 

John F. Kennedy Lyndon B. Johnson Lyndon B. Johnson <E0LN> 

Hubert H. Humphrey <E0LN> 

Richard M. Nixon Spiro T. Agnew <E0LN> 

The first call to the READ procedure sets Pres equal to the 20-character 
string 'John F. Kennedy ' and Veep equal to 'Lyndon B. Johnson '. The 
second call to the procedure assigns the value 'Lyndon B. Johnson ' 
to Pres and, after encountering the end-of-line marker, fills the array 
Veep with spaces. The file position will not advance to the beginning 
of the next line until a READLN is performed. 

3. TYPE 

Color = (Red, Fire.Engine.Green, Blue, Black); 

VAR 

Light : Color; 


READ (Light); 

In this example, if the letter R is read, the variable Color is assigned 
the value Red. However, if the letters Redx are read, an error occurs. 
If the letters B1 are read, an error also occurs since B1 is not unique. 
However, the letters Blu are unique and would be interpreted as the 
constant identifier Blue. 
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12.3.3 RESET Procedure 


The RESET procedure readies a file for reading. The format of the RESET 
procedure is: 

RESET (file-variable 1 ERROR := error-recoveryl ) 

file-variable 

The name of the file variable associated with the input file. 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the RESET procedure is executing (see Section 12.2.2.3). 

The file may be in any mode before RESET is called to set the mode to 
Inspection. If the file is an external file and is not already open, RESET 
opens it using the defaults listed in Tables 12-3 and 12-4. You cannot use 
RESET to create a file. 

After execution of RESET, the file is positioned at the first component, and 
the file buffer variable contains the value of this component. If the file is 
not empty, EOF and UFB are FALSE and the first component is locked to 
prevent access by other processes. If the file is empty, EOF and UFB are 
TRUE. If the file does not exist, RESET does not create it, but returns an 
error at run time. 

You should call RESET before reading any file with sequential organiza¬ 
tion except the predeclared file INPUT. The RESET procedure removes the 
end-of-file marker from any file connected to a terminal device (including 
INPUT), thus allowing reading from the file to continue. If you call RESET 
for the predeclared file OUTPUT, an error occurs. 

A call to RESET on a relative file opened for direct access positions the file 
at its first existing component. 

A call to RESET on an indexed file opened for keyed access positions the 
file at the first component relative to the primary key. 
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Examples 

1. OPEN (Phones. 

'Phones.Dat', 

ACCESS.METHOD := Direct); 

RESET (Phones); 

These statements open the file variable Phones for direct access. After 
execution of the OPEN and RESET procedures, you can use the FIND 
procedure for direct access to the components of the file Phones. 

2. RESET (Weights); 

If the file variable Weights is already open, this procedure call prepares 
it for reading and assigns the value of the first file component to 
Weights". If the file is not open, RESET causes the system to perform 
an (3pEN by default. If Weights is an external file, its file history will 
be OLD. Otherwise, an error occurs. 


12.4 Sequential Access Output Procedures 

This section describes output procedures that apply primarily to files 
opened for sequential access; owever, these procedures can also be used 
on direct- and keyed-access files. 

The following sequential output procedures are described: 

• EXTEND 

• PUT 

• REWRITE 

• WRITE 


12.4.1 EXTEND Procedure 

The EXTEND procedure opens an existing file and prepares it for writing. 
It is commonly used to append to a file. EXTEND has the form: 

EXTEND (file-variable I, ERROR := error-recoveryl) 
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file-variable 

The name of the file variable associated with the output file. 


error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the PUT procedure is executing (see Section 12.2.2.3). 

The file may be in any mode before EXTEND is called to set the mode to 
Generation. If the file is an external file and is not already open, EXTEND 
opens it using the defaults listed in Tables 12-3 and 12-4. You cannot use 
EXTEND to create a file. 

After execution of EXTEND, the file is positioned after: the last component, 
and EOF and UFB are FALSE. If the file does not exist; EXTEND does not 
create it, but returns an error at run time. 

A call to EXTEND on a relative file opened for direct access positions the 
file after its last existing component. 

A call to EXTEND on an indexed file opened for keyed access positions 
the file after the last component relative to the primary key. 


Examples 

1. EXTEND (DATA); 

This Statement will open an existing file named DATA.DAT. The file 
will be positioned at the end of file and prepares the file for writing. 

2. VAR 

F : FILE OF INTEGER; 


OPEN (File.Variable 
File.Name 
History 
ORGANIZATION 
Access.Method 
EXTEND (F); 

F^ := 20; 

PUT (F); 


= F. 

= 'SAMPLE.DAT'. 
= OLD. 

= Relative, 

= Direct; 


These statements open an existing relative file named 'SAMPLE.DAT'. 
The file will be positioned after the last record in the file. Subsequent 
PUTs will append new records to the end of the file. 
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12.4.2 PUT Procedure 


The PUT procedure adds a new component to a file. It has the form: 

PUT (file-variable E, ERROR := error-recovery]]) 

file-variable 

The name of the file variable associated with the output file. 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the PUT procedure is executing (see Section 12.2.2.3). 

Before executing the first PUT procedure on a sequential-access file, you 
must execute an EXTEND, REWRITE or TRUNCATE procedure to set the 
file to Generation mode. EXTEND, REWRITE and TRUNCATE set EOF to 
TRUE, thus preparing the file for output. (Note that TRUNCATE is legal 
only on files with sequential organization; see Section 12.5.3.) If the file 
has indexed organization, the components to be written must be ordered 
by primary key. 

Before executing the first PUT on a file opened for direct access, you must 
execute an EXTEND, REWRITE or LOCATE procedure to position the file. 

The PUT procedure writes the value of the file buffer variable at the end 
of the specified sequential- or direct-access file. After execution of the PUT 
procedure, the value of the file buffer variable becomes undefined (UFB is 
RUE). EOF remains TRUE and the file remains in Generation mode. 

You may call the PUT procedure for a keyed-access file, regardless of the 
file's mode (Inspection, Generation, or Undefined). PUT causes the file 
buffer variable to be written to the file at the position indicated by the 
key. If the component has more than one key, the file buffer variable is 
inserted in each index at the appropriate location. After execution of PUT, 
a keyed-access file is in Generation mode. 

Example 

PROGRAM Bookfile (INPUT. OUTPUT. Books); 

TYPE 

String = PACKED ARRAY[1..40] OF CHAR; 

Bookrec = RECORD 

Author : String; 

Title : String; 

END; 


12-32 


Input and Output Processing 




VAR 

Newbook : Bookrec; 

Books : FILE OF Bookrec; 

N : INTEGER; 

BEGIN 

REWRITE (Books); 

FOR N := 1 TO 10 DO 
BEGIN 

WITH Newbook DO 
BEGIN 

WRITE ('Title:'); 

READLN (Title); 

WRITE ('Author:'); 

READLN (Author); 

END; 

Books" := Newbook; 

PUT (Books); 

END; 

CLOSE (Books); 

END. 

This program writes the first 10 records read from the terminal into the file 
Books. The records are typed at the terminal and assigned to the record 
variable Newbook. They consist of two 40-character strings denoting a 
book's author and title. The FOR loop accepts 10 values for Newbook, 
assigning each new record to the file buffer variable Books". The PUT 
statement writes the value of Books" into the file for each input record. 


12.4.3 REWRITE Procedure 

The REWRITE procedure readies a file for output. The format is: 

REWRITE (file-variable I, ERROR := error-recovery]]) 

file-variable 

The name of the file variable associated with the output file. 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the REWRITE procedure is executing (see Section 12.2.2.3). 
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The file can be in any mode before REWRITE is called to set the mode 
to Generation. If the file variable has not been opened, REWRITE creates 
and opens it using the defaults listed in Tables 12-3 and 12-4. 

The REWRITE procedure truncates a file to length zero and sets EOF and 
UFB to TRUE. You can then write new components into the file with the 
PUT, WRITE, and WRITELN procedures (WRITELN is defined only for 
text files). After the file is open, successive calls to REWRITE truncate the 
existing file to length zero; they do not create new versions of the file. 

To update an existing file with sequential organization, you must either 
use the EXTEND procedure, the TRUNCATE procedure, or copy the 
contents to another file, specifying new values for the components you 
need to update. 

REWRITE, when applied to a file with relative or indexed organization, 
deletes the contents of the file and sets the file position to the beginning 
of an empty file. 

Examples 

1. REWRITE (Storms); 

If the file variable Storms is already open, this REWRITE procedure 
prepares the file for writing, clears it of old data, and sets the file 
position to the beginning of the file. If Storms is not open, a new 
version is created with the same defaults as for the OPEN procedure 
(Section 12.2.1). 

2. OPEN (Ratings, 

'[INSURANCE1CARS.DAT'. 

HISTORY := OLD. 

RECORD_TYPE ;= FIXED): 

REWRITE (Ratings); 

The OPEN procedure opens the file variable Ratings, which is associ¬ 
ated with the VAX/VMS file CARS.DAT in directory [INSURANCE]. 
The REWRITE procedure discards the current contents of the file 
Ratings and sets the file position to the beginning of the file. After 
execution of this procedure, EOF (Ratings) is TRUE. 
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12.4.4 WRITE Procedure 


The WRITE procedure assigns data to an output file. It has the format: 

WRITE ([[file-variable, I] {expression}. 

[[, ERROR := error-recoveryl) 

file-variable 

The name of the file variable associated with the output file. If you omit 
the name of the file, the default is OUTPUT. 

expression 

A compile-time or run-time expression whose value is to be written: 
multiple output values must be separated with commas. An output value 
must have the same type as the file components; however, values written 
to a text file can also be expressions of any ordinal, real, or string type. 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the WRITE procedure is being executed (see Section 12.2.2.3). 

The file (unless it is a keyed-access file) must be in Generation mode 
before WRITE is called; it remains in that mode after WRITE has executed. 

By definition, a WRITE to a nontext file performs an assignment to the 
file buffer variable and a PUT for each output value. For nontext files, 
the types of the output values must be assignment compatible with the 
component type of the file. Thus, the procedure call 

WRITE (file-variable, expression); 

is similar to 

file-variable" := expression; 

PUT (file-variable); 

For text files, the WRITE procedure converts the value of each expression 
to a sequence of characters. It repeats the assignment and PUT process 
until all the values have been written to the file. See Section 12.6.8 
for information on using WRITE and READ to prompt for input from 
interactive files. 
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Examples 

1. TYPE 

String = PACKED ARRAY[1..20] OF CHAR; 

VAR 

Names : FILE OF String; 

Pres : String; 


WRITE (Names. 'Millard Fillmore Pres); 

This example writes two components in the file Names. The first is the 
20-character string constant 'Millard Fillmore The second is the value 
of the string variable Pres. 

2. VAR 

RainAmts : FILE OF REAL; 

Avg-Rain, Max-Rain, Min-Rain : REAL; 


WRITE (RainAmts, Avg-Rain, Min-Rain, 0.312, Mauc-Rain); 

The file RainAmts contains real numbers indicating amounts of rainfall. 
The WRITE procedure writes the values of the variables Avg-Rain and 
Min-Rain into the file, and follows them with the real constant 0.312 
and the value of the variable Max—Rain. 


12.5 Miscellaneous Routines 

The miscellaneous routines described in this section are generally used 
when dealing with sequential access files. Iri some cases, as indicated, the 
routines can also be used on direct or keyed access files. 

• EOF (also legal on files opened for direct or keyed access) 

• STATUS (also legal on files opened for direct or keyed access) 

• TRUNCATE 

• UFB (also legal on files opened for direct access) 

• UNLOCK (also legal on files opened for direct or keyed access) 
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12.5.1 EOF Function 


The EOF (end-of-file) function indicates whether the file pointer is posi¬ 
tioned after the last component in a file. It has the form: 

EOF III 

file-variable 

The name of the file variable associated with the input file. If you omit 
the name of the file, the default is INPUT. 

The file may be in either Inspection or Generation mode before EOF is 
called; however, end-of-file must be well defined. The input operations 
GET, RESET, FIND, and FINDK ^^e guaranteed to leave end-of-file well 
defined. The file mode does not change after EOF has been executed. 

The Boolean function EOF returns TRUE when the file pointer is posi¬ 
tioned after the last component in the file. The EOF function returns 
FALSE up to and including the time when the last component of the 
input file is read into the file buffer. You must attempt to get another file 
component after the last to determine whether the file is positioned at 
end-of-file. 

When EOF is tested for a file with relative organization opened for direct 
access, the result is TRUE if the file is in Inspection mode and the last 
GET or RESET operation positioned the file beyond the last existing 
component. If the file is in Generation or Undefined mode, the result of 
EOF is undefined. 

When EOF is tested for a file with indexed organization opened for keyed 
access, the result is TRUE if the file is in Inspection mode and the last 
FINDK, GET, RESET, or RESETK operation positioned the file beyond 
the last component with the current key number. Successful attempts at 
FINDK, GET, RESET, and RESETK cause EOF to be FALSE. If the file is 
not in Inspection mode, EOF is undefined. 

If you attempt to read a file after EOF becomes TRUE, an error results. 
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Examples 

1. Coupons := 0; 

WHILE NOT EOF DO 

BEGIN 

READLN (Coupon_Amount); 

Coupons := Coupons + Coupon_Amount; 

END; 

This example calculates the total value of the coupons contained in 
the file INPUT. The loop is performed while the EOF function returns 
FALSE. 

2. WHILE NOT EOF (MasterFile) DO 

BEGIN 

READLN (MasterFile, Customer); 

IF Customer.New <> Yes 
THEN 

Old := Old + 1 
ELSE 

New := New + 1; 

END; 

This example counts the numbers of old and new customers in a 
master file. The loop is performed while EOF is FALSE. 


12.5.2 STATUS Function 

The STATUS function indicates the status of a file following the last 
operation performed on it. The format is: 

STATUS (file-variable) 

file-variable 

The name of the file variable associated with the file to be tested. 

The file may be in any mode before STATUS is called; unless an error 
occurs, STATUS does not change the file mode upon execution. 

The STATUS function returns one of the following integer codes that 
indicate the previous operation's effect on the file: 0 indicates a successful 
operation; -1 indicates that the previous operation encountered an end-of- 
file; a positive integer value indicates that the previous operation resulted 
in an error. The specific error condition codes returned by the STATUS 
function are listed in the VAX PASCAL User's Guide, 

STATUS never signals an error condition using the VAX Condition 
Handling Facility; rather, it reports an error status in its return value. 
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A test by the STATUS function on a text file causes delayed device access 
to occur, thus filling the file buffer with the next file component (see 
Section 12.9). Therefore, EOF, EOLN, UFB, and STATUS never return an 
error code following a successful STATUS function. 

Example 

RESET (Filel, ERROR := CONTINUE); 

IF STATUS (Filel) > 0 
THEN 

WRITELN ('Cannot access first record') 

ELSE 

IF STATUS (Filel) < 0 
THEN 

WRITELN ('File is empty') 

ELSE 

READ (Filel); 

This example resets a file and prepares it for reading. Following the 
RESET, the file status is tested first for an error condition and then for an 
end-of-file. If the RESET procedure encounters either of these conditions, 
an appropriate error message is printed. If the STATUS function indicates 
that the RESET was successful, the first record is read from the file. 


12.5.3 TRUNCATE Procedure 

The TRUNCATE procedure indicates that the current file component and 
all components following it are to be deleted. It follows the form: 

TRUNCATE (file-variable I, ERROR := error-recoveryl]) 

file-variable 

The name of the file variable associated with the file to be truncated. 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the TRUNCATE procedure is executing (see Section 12.2.2.3). 

The file must be in Inspection mode before TRUNCATE is called. After 
the procedure has been executed, the mode is set to Generation so that 
output can be written to the file. 

The current component is the one at which the file buffer is positioned. 
After the appropriate components have been deleted, the file remains 
positioned at the new end-of-file, but the file buffer itself is undefined. 
Thus, EOF and UFB are both set to TRUE. 
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TRUNCATE can be used only on a file that has sequential organization. 

Example 

TRUNCATE (MasterFile); 

This procedure deletes components from the sequential file MasterFile, 
beginning with the current component and continuing until EOF is TRUE. 
When the operation is complete, EOF (MasterFile) and UFB (MasterFile) 
are TRUE, and new data may be written at the end of MasterFile. 


12.5.4 UFB Function 

The UFB (undefined file buffer) function returns a Boolean value to 
indicate whether the last file operation gave the file buffer an undefined 
status. It has the form: 

UFB (file-variable) 

file-variable 

The name of the file variable associated with the file whose buffer is being 
tested. 

The file may be in any mode before UFB is called; execution of UFB does 
not change the file mode. 

UFB tests the effect of the last I/O operation done to the file. UFB returns 
FALSE if a successful GET, FIND, FINDK, RESET, or RESETK operation 
has filled the file buffer. GET, FIND, FINDK, RESET, and RESETK 
procedure calls that do not fill the file buffer set UFB to TRUE. UFB 
also returns TRUE after DELETE, EXTEND, LOCATE, PUT, REWRITE, 
TRUNCATE, and UPDATE procedures have left the contents of the file 
buffer unknown. 

Assigning a new value to the file buffer with an assignment statement 
does not change the value of UFB. 

Example 

FIND (Supplies, December); 

IF NOT UFB (Supplies) 

THEN 

Inventory := Inventory - Supplies*'; 
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If the variable December has a value of 12, the FIND procedure attempts 
to find the twelfth component of the file Supplies. If the FIND procedure 
is successful. Supplies" assumes the value of this component and UFB 
(Supplies) is FALSE. If, however, the FIND procedure is unable to find 
the twelfth component of the file, UFB (Supplies) returns TRUE. In this 
example, the value of Supplies" is subtracted from the value of Inventory 
only if the FIND procedure is successful. 


12.5.5 UNLOCK Procedure 

The UNLOCK procedure releases the current file component for access by 
other processes. The format of the UNLOCK procedure is: 

UNLOCK (file-variable E, ERROR := error-recovery]]) 

file-variable 

The name of the file variable associated with the file whose component is 
to be unlocked. 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the UNLOCK procedure is being executed (see Section 12.2.2.3). 

The file must be in Inspection mode before UNLOCK is called; it remains 
in Inspection mode after UNLOCK has executed. 

If the component at which the file pointer is positioned has been locked, 
the UNLOCK procedure releases it. 

Although UNLOCK may be used on files with any organization, no 
unlocking is performed on files with sequential organization. When 
such a file is opened, it is locked as a whole, rather than by individual 
components, with the SHARING parameter. However, a call to the 
UNLOCK procedure for a sequential file does not cause an error. 

Example 

UNLOCK (SalesFile): 

If SalesFile has direct or indexed organization, the UNLOCK procedure 
releases the contents of the current component. If SalesFile has sequential 
organization, the procedure has no effect. 
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12.6 Text File Manipulation 


The following routines apply only to the handling of text files (including 
INPUT and OUTPUT). They are described in the next sections: 

• EOLN 

• LINELIMIT 

• PAGE 

• READLN 

• WRITELN 

In addition, the use of the output procedures WRITE, WRITELN, and 
WRITEV with a field width specification for more readable output is 
described in Sections 12.6.6 and 12.6.7, and prompting on terminal files 
is discussed in Section 12.6.8. The WRITEV procedure, which writes 
the values of expressions to a VARYING string, is fully described in 
Section 11.3.12. 


12.6.1 EOLN Function 

The EOLN (end-of-line) function tests for the end-of-line marker within a 
text file. It follows the form: 

EOLN II] 

file-variable 

The name of a file variable associated with a text file. If you omit the 
name of the file, the default is INPUT. 

The file must be in Inspection mode and EOF must be FALSE before 
EOLN is called. EOLN leaves the file in Inspection mode. 

The Boolean EOLN function returns TRUE when the file pointer is po¬ 
sitioned after the last character in a line. When EOLN is TRUE, the file 
buffer contains a blank character. 

The EOLN function returns FALSE when the last component in the line is 
read into the file buffer. Another character must be read to cause EOLN 
to return TRUE and to cause the file buffer to be positioned at the end-of- 
line marker following the last character of the line. If you use the EOLN 
function on a nontext file, an error occurs. 
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Examples 

1. Num _Chars : = 0; 

WHILE NOT EOLN DO 

BEGIN 
READ (Ch); 

Num _Chars := Num _Chars + 1; 

endT 

READLN; 

This example assumes that a new line of input is being scanned and it 
calculates the number of characters in that line. The WHILE statement 
continues to execute until the end-of-line marker is read. 

2. WHILE NOT EOF (MasterFile) DO 

BEGIN 

WHILE NOT EOLN (MasterFile) DO 
BEGIN 

READ (MasterFile, X); 

IF NOT (X IN ['A'..'Z','a'..'z','O'..'9']) 

THEN 

Err := Err + 1; 

END; 

READLN (MasterFile); 

END; 

This example scans the characters on each line of a text file called 
MasterFile and checks for characters that are neither digits nor letters. 
If a nonnumeric or nonalphabetic character is encountered in the file, 
the counter Err is incremented by one. The loop is executed until the 
last component in the file is read. 


12.6.2 LIMELIMIT Procedure 

The LINELIMIT procedure terminates execution of the program after a 
specified number of lines has been written into a text file. It has the form: 

LINELIMIT (file-variable, n [[, ERROR := error-recovery]]) 

file-variable 

The name of the file variable associated with the text file to which this 
limit applies. 

n 

A positive integer expression that indicates the number of lines that can 
be written to the file before execution terminates. 
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error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the LINELIMIT procedure is being executed (see Section 12.2.2.3). 

The file may be in any mode before LINELIMIT is called; the file mode 
does not change after LINELIMIT has been executed. 

The VAX PASCAL run-time system determines a default line limit for 
text files by translating the logical name PAS$LINELIMIT as a string 
of decimal digits. If this logical name has not been defined, there is no 
default line limit. You can override the default by calling LINELIMIT with 
a smaller or larger value for n. 

After the number of lines written into the file has reached the line limit, 
program execution terminates unless the WRITELN procedure that ex¬ 
ceeded the line limit includes the ERROR := CONTINUE parameter. 

Example 

LINELIMIT (Debts. 100); 

Execution of the program terminates after 100 lines have been written into 
the text file Debts. 


12.6.3 PAGE Procedure 

The PAGE procedure skips from the current page to the next page of a 
text file, and has the form: 

PAGE (file-variable E, ERROR := error-recovery]]) 

file-variable 

The name of the file variable associated with a text file. 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the PAGE procedure is executing (see Section 12.2.2.3). 
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The file must be in Generation mode before the PAGE procedure is called; 
the mode does not change as a result of the procedure's execution. 

Execution of the PAGE procedure requires the system to clear the record 
buffer, if it contains data, by performing a WRITELN, and then to advance 
the output to a new page of the specified text file. The next line written 
to the file begins on the second line of a new page (the first line is always 
empty). You can use this procedure only on text files. If you specify a file 
of any other type, an error occurs. 

The value of the page eject record that is output to the file depends on 
the carriage-control format for that file. When CARRIAGE or FORTRAN 
is enabled, the >age eject record is equivalent to the carriage control 
character '1'. When LIST, NOCARRIAGE, or NONE is enabled, the page 
eject record is a single form-feed character. 

Examples 

1. PAGE (Userguide); 

This PAGE procedure causes a page eject record to be written in the 
text file Userguide. 

2. PAGE (OUTPUT); 

This PAGE procedure writes a page eject record to the terminal (in 
interactive mode) or to the batch log file (in batch mode). 


12.6.4 READLN Procedure 

The READLN procedure reads lines of data from a text file, and has the 
form: 

READLN (Tfile-variable.II {variable-identifier 
[[:radix-specifier]]}, . . . 

I, ERROR := error-recoveryl) 

file-variable 

The name of the file variable associated with the text file to be read. If 
you omit the name of the file, the default is INPUT. 

variable-identifier 

The name of the variable into which a value will be read; multiple 
identifiers must be separated with commas. If you do not specify any 
variable names, READLN skips a line in the specified file. 
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radix-specifier 

The format values BIN, OCT, and HEX. These values, when used on a 
variable identifier, will convert the variable to its respective BIN, OCT, or 
HEX equivalent (see below). 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the RE ADEN procedure is executing (see Section 12.2.2.3). 

You may optionally include a radix specifier on the variable identifier. For 
example: 

READLN ( I : HEX ); 

This example will read into the variable I using HEX format. Using a radix 
specifier allows you to read a variable of any type except a type containing 
a file component. Or, for instance, you may read an entire array or record, 
which is otherwise not possible. 

The file must be in Inspection mode before READLN is called; it remains 
in that mode after the procedure's execution. 

The READLN procedure reads values from a text file. After reading 
values for all the listed variables, the READLN procedure skips over 
any characters remaining on the current line and positions the file at the 
beginning of the next line. The values need not all be on a single line; 
READLN continues until values have been assigned to all the specified 
variables, even if this process results in the reading of several lines of the 
input file. 

When applied to several variables, READLN performs the following 
sequence: 

READ (file-variable, {variable-identifier},...); 

READLN (file-variable); 

EOLN is TRUE after a READLN only if the new line is empty. 

You can use the READLN procedure to read integers, real numbers, 
characters, strings, and constants of enumerated types. The values in the 
file must be separated as for the READ procedure. The rules governing the 
reading of values from text files are presented with the READ procedure 
(see Section 12.3.2). 
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Example 


TYPE 

String = PACKED ARRAY[1..20] 

VAR 


Names : TEXT; 

Pres, Veep : String; 


OF CHAR; 


READLN (Naunes, Pres, Veep); 

This program fragment declares and reads the file Names, which contains 
the following characters: 

John F. Kennedy Lyndon B. Johnson Lyndon B. Johnson <E0LN> 

Hubert H. Humphrey <E0LN> 

Richard M. Nixon Spiro T. Agnew <E0LN> 

<E0LN> 

<E0F> 

The READLN procedure reads the values 'John F. Kennedy ' for Pres and 
'Lyndon B. Johnson ' for Veep. It then skips to the next line, ignoring 
the remaining characters on the first line. Subsequent execution of the 
procedure assigns the value 'Hubert H. Humphrey ' to Pres and the space 
detected as the end-of-line marker to Veep. A third call to the procedure 
reads 'Richard M. Nixon ' into Pres and 'Spiro T. Agnew ' into Veep. The 
procedure then skips past the end-of-line marker to the beginning of the 
next line. Another call to READLN sets EOF equal to TRUE and EOLN 
becomes undefined. 


12.6.5 WRITELN Procedure 

The WRITELN procedure writes a line of data to a text file, and follows 
the form: 

WRITELN [[ ( Ifile-variable,I {expression},... 

I, ERROR := error-recovery]] )]] 

file-variable 

The name of the file variable associated with the text file to be written. If 
you omit the name of the file, the default is OUTPUTi^ 
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expression 

A compile-time or run-time expression whose value is to be written; 
multiple output values must be separated by commas. The expressions 
can be of any ordinal, real, or string type and are written with a default 
field width (see Section 12.6.6). 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the WRITELN procedure is executing (see Section 12.2.2.3). 

The file must be in Generation mode before WRITELN is called; it remains 
in that mode after WRITELN has been executed. 

The WRITELN procedure writes the specified values into the text file, 
inserts an end-of-line marker after the end of the current line, and then 
positions the file at the beginning of the next line. When applied to 
several expressions, WRITELN performs the following sequence: 

WRITE (file-variable, {expression},...); 

WRITELN; 

For example: 

WRITELN (Userguide, 'This manual describes how to Interact'); 

As a result of this procedure, the string is written to the text file Userguide, 
followed by an end-of-line marker, and skips to the next line. 

When you open a text file or a file of type VARYING OF CHAR, you 
can specify the value CARRIAGE (or FORTRAN) for the carriage-control 
parameter. If you select CARRIAGE (or FORTRAN) format, the first 
character of each output line is treated as a carriage-control character when 
output is directed to carriage-control devices, such as a terminal or a line 
printer. If output is directed elsewhere, the character is written into the file 
and will be read back when the file is opened for input. See Table 12-5, 
Section 12.2.1.7, for a summary of the available carriage-control characters 
and their effects. 

The carriage-control character must be the first item in an output text line. 
For example, if the text file Tree has been opened with the CARRIAGE 
option, you can use the following procedure: 

WRITELN (Tree, ' '. Stringl. String2); 

The first item in the list is a space character. The space indicates that the 
values of Stringl and String2 will be printed on a new line when the file 
is written to a terminal, line printer, or similar carriage-control device. 
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If you select CARRIAGE format when opening the predeclared file 
OUTPUT, you can use the dollar sign ($) character to initiate prompting 
for input at the terminal. For example: 

WRITELN ('$How many inches of rain last night?'); 

This procedure prints the text at the terminal and suppresses the carriage 
return. The answer can be typed at the end of the line on which the 
prompt appears. 

If you specify CARRIAGE, but use an invalid carriage-control character, 
the first character in the line is ignored. The output appears with the first 
character truncated. 

Examples 

1 . WRITELN (Class[I], ' is the grade for this student.'); 

This WRITELN procedure writes a component of the character array 
Class to the file OUTPUT. 

2 . WRITELN; 

A call to WRITELN without a file variable or print list ends the printing 
of the current line on the file OUTPUT, which represents the standard 
output device (usually the terminal). 

3. TYPE 

string = PACKED ARRAY[1..25] OF CHAR; 

VAR 

Newhires : TEXT; 

N : INTEGER; 

Newrec : RECORD 

Id : INTEGER; 

Name, Address : String; 

END; 


OPEN (Newhires. 


CARRIAGE.CONTROL 

:= CARRIAGE); 

REWRITE (Newhires); 


WITH Newrec DO 


BEGIN 


WRITELN (Newhires. ' 

' INew hire # ', 

WRITELN (Newhires. ' 

' ', Name, 'lives 

WRITELN (Newhires. ' 

' '); 

WRITELN (Newhires. ' 

' ', Address); 

END; 



ID:1. ' is 
at: ' ) ; 


Name) ; 
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In this example, four lines are written to the text file Newhires. The 
output starts at the top of a new page, as directed by the carriage- 
control character 'T, and appears in the following format: 

New hire # 73 is Irving Washington 

Irving Washington lives at: 

22 Chestnut St, Seattle 


12.6.6 Output with Specified Field Width 

The output values of a WRITE, WRITELN,or WRITEV (see Section 11.3.12) 
procedure can be compile-time or run-time expressions, with values of any 
ordinal, real, or string type. Each value is written with a default field 
width, which specifies the minimum number of characters to be written 
for the value. Table 12-6 lists the default field widths. 


Table 12-6: Default Field Widths 


Type of Item 

Printed 

Number of Characters 

INTEGER, UNSIGNED 

10 

CHAR 

1 

BOOLEAN 

6 

Enumerated 

Size of longest identifier +1 up to 

32 

REAL 

12 

DOUBLE 

20 

QUADRUPLE 

40 

Character string 

Length of string 
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You can override these defaults for a particular value by specifying a field 
width in the print list, using the following format: 

output: minimum [I: fraction!] 

Both minimum and fraction represent integer expressions with positive or 
zero values. The minimum indicates the minimum number of characters 
to be written for the value. The fraction, which is permitted only for 
values of real types, indicates the number of digits to be written to the 
right of the decimal point. The format of the field width specification is 
identical for the WRITE, WRITELN, and WRITEV procedures. 

By default, real numbers are written in exponential format. Note that 
regardless of the real number's type, output procedures always prefix the 
exponent with the letter E. Each real number in exponential format is 
preceded by a blank or a minus sign, and the value of the rightmost digit 
is rounded. For example: 

WRITELN (Shoesize); 

If the value of Shoesize is 12.5, this procedure produces the following 
output: 

1.25000E+01 

To write the value in decimal format, you must specify a field width as in 
this example: 

WRITELN (Shoesize:5:1); 

The first integer indicates that a minimum of five characters will be 
written. The minimum includes the minus sign, if needed, and the 
decimal point. The second integer specifies one digit to the right of the 
decimal point. The resulting output is as follows: 

12.5 

If the field specified is wider than necessary, the value is written with 
leading blanks. 

If you try to write an integer, unsigned, or real value in a field that is too 
narrow, the field width is expanded to the minimum necessary to write 
the value. If you try to write a value of an enumerated type, a Boolean 
value, a character, or a string value in a field that is too narrow, the 
value is truncated on the right. The truncated identifier is not checked for 
uniqueness. 
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For an expression of an enumerated type, the constant identifier denoting 
the expression's value is written. For example: 

VAR 

Color : (Blue, Yellow. Black. Fire_Engine_Green); 


WRITE ('My favorite color is Color:16); 

When the value of Color is Yellow, the following is written: 

My favorite color is YELLOW 

When the value of Color is Fire_Engine_Green, the following appears: 

My favorite color is FIRE_ENGINE_GRE 

Since the field width specified in this case is not wide enough for all 
17 characters in the identifier, the identifier is truncated after the field is 
filled. Note that constants of enumerated types are written in all uppercase 
characters. 


12.6.7 Writing Binary, Decimal, Unsigned Decimal, Hexadecimal, and Dctal 
Values 

You can use the predeclared conversion functions BIN, DEC, UDEC, 

HEX, and OCT in combination with the WRITE, WRITELN, and WRITEV 
procedures to write binary, decimal, unsigned decimal, hexadecimal, and 
octal values. These functions and the WRITEV procedure are described in 
detail in the subsections of Chapter 11, Predeclared Routines. They follow 
the form: 

WRITE ([[file-variable.]] 



' BIN ^ 



DEC 



UDEC 

► (expression!, length!, digits]]]]) ^ 


HEX 


< 

. OCT 

j 


The predeclared conversion functions convert the value of the first expres¬ 
sion in the list to its equivalent as a binary, decimal, unsigned decimal, 
hexadecimal, or octal number. The resulting digits are returned in a 
VARYING string. 
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The actual parameter list of the conversion function must contain an 
expression to be written. Two optional integer parameters specify the 
length of the resulting string and the number of significant digits to be 
returned. If you omit these parameters, the bit width of the converted 
value determines the string length and the number of significant digits. If 
the converted value is shorter than the specified length, it is padded with 
spaces on the left. If the converted value is longer, it is truncated on the 
left. 

For every expression whose binary, decimal, unsigned decimal, hexadec¬ 
imal, or octal value you wish to write, you must call the appropriate 
conversion function separately with an actual parameter list. You can call 
more than one conversion function in the same output procedure call. 
Arbitrary items (including pointers) may be written to test files, in binary, 
decimal, unsigned decimal, hexadecimal, or octal notation. 

You can specify field widths with the conversion functions; however, the 
results are likely not to be what you expect. For example, suppose you 
want to convert the value of I to its hexadecimal equivalent and you want 
the converted value to be written in a field three characters wide. You 
might write the following procedure call: 

WRITELN (HEX (I):3); 

However, since the converted value is longer than the field width spec¬ 
ification, the value is truncated on the right rather than on the left. 
Therefore, the output generated by this procedure would be: 

00 

Thus, you should be careful about specifying field widths with BIN, DEC, 
UDEC, HEX, and OCT when the converted value could exceed the field 
width given. 

Examples 

1. WRITE (HEX (Payroll. 10). HEX (Salary. 12)); 

The values of the variables Payroll and Salary are converted to their 
hexadecimal equivalents. Payroll is printed with 10 characters and 
Salary is printed with 12 characters. The output values, preceded by 
two initial blanks, could look like this: 

000031F2 000058AB 
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2. WRITELN (OCT (Social.Security. 14), BIN (Survey, 8)); 

The value of the variable Social-Security is converted to its octal 
equivalent and printed with 14 characters. Then the value of the 
variable Survey is converted to its binary equivalent and printed with 
eight characters. A sample line of output, preceded by three blanks, 
could look like this: 

0271137762600101110 

3. WRITEV (Final.Balance, OCT (Debits, 16), OCT (Credits. 16)); 

The values of the variables Debits and Credits are converted to their 
octal equivalents and written to the string variable Final-Balance with 
16 characters each. The output string, preceded by five blanks, could 
look like this: 

, 77777770342 00000033766* 


12.6.8 Prompting on Terminal Files 

In VAX PASCAL, if you open an interactive terminal file (such as 
OUTPUT) with the default carriage-control option LIST, you can use 
the WRITE procedure to prompt for input at the terminal. Each time you 
read from an interactive terminal file (such as INPUT), the system checks 
for any output in the terminal record buffer. If the buffer contains any 
characters, the system prints them at the terminal, but suppresses the 
carriage return at the end of the line. The output text appears as a prompt, 
and you can type input on the same line. For example: 

WRITE ('Name three presidents:'); 

READ (Presl, Pres2, Pres3); 

The system prints the prompt at the terminal, leaving the carriage posi¬ 
tioned just after the colon (:). You can then begin typing input on the 
same line as the prompt. When the system executes the READ procedure, 
it finds the output string waiting to be printed. 

Prompting works only for files associated with interactive terminals. For 
any other files, no output is written until the new line is started with a 
WRITELN. (Section 12.9 contains more information on prompting.) 
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Example 

WRITE (N\iinl;5:l, ' and', Num2:5:l, ' sum to', (Numl Num2):6:l): 

In this example, if the value of Numl is 71.1 and the value of Num2 is 
29.9, the resulting output to the terminal is: 

71.1 and 29.9 sum to 101.0 

Note that the chosen field width causes each of the real numbers to be 
preceded by a space. 


12.7 Direct Access Procedures 

The following procedures are generally legal only on files opened for 
direct access. In some cases, as indicated, the procedures apply to keyed 
access files as well. 

• DELETE (also legal on files opened for keyed access) 

• FIND 

• LOCATE 

• UPDATE (also legal on files opened for keyed access) 


12.7.1 DELETE Procedure 

The DELETE procedure deletes the current file component. It has the 
form: 

DELETE (file-variable!, ERROR := error-recovery]]) 

file-variable 

The name of the file variable associated with the file from which a compo¬ 
nent is to be deleted. 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the DELETE procedure is executing (see Section 12.2.2.3). 
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The file must be in Inspection mode before DELETE is called; the mode 
does not change after the procedure's execution. 

When the DELETE procedure is called, the current component, as indi¬ 
cated by the file buffer, must already have been locked by a successful 
FIND, FINDK, GET, RESET, or RESETK procedure before it can be 
deleted. After deletion, the component is unlocked and UFB is TRUE. 

DELETE can be used only on files with relative or indexed organization 
that have been opened for direct or keyed access; it cannot be used on 
files with sequential organization. 

Example 

DELETE (AccountsPayable); 

This procedure call deletes the current component. When the component 
has been deleted, it is unlocked and UFB (AccountsPayable) is TRUE. A 
run-time error occurs if the current component of AccountsPayable is not 
locked. 


12.7.2 FIND Procedure 

The FIND procedure positions a file at a specified component. It has the 
form: 

FIND (file-variable, component-number 
I, ERROR := error-recovery]]) 

file-variable 

The name of a file variable associated with a file that is open for direct 
access. The file must have fixed-length records. 

component-number 

A positive integer expression that indicates the component at which the 
file is to be positioned. If the component number is zero or negative, a 
run-time error occurs. 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the FIND procedure is executing (see Section 12.2.2.3). 
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The FIND procedure allows direct access to the components of a file. You 
can use the FIND procedure to move forward or backward in a file. 

The file must have been opened for direct access and may be in any mode 
before a call to FIND. 

After execution of the FIND procedure, the file is positioned at the 
specified component. The file buffer variable assumes the value of the 
component, and the file mode is set to Inspection. If the file has relative 
organization, the current file component is locked. If there is no file com¬ 
ponent at the selected position, the file buffer is undefined (UFB becomes 
TRUE) and the mode becomes Undefined. After any call to FIND, the 
value of EOF is undefined. 

You can use the FIND procedure only when reading a file that was 
opened by the OPEN procedure. If the file is open because of a default 
open (that is, with EXTEND, RESET, or REWRITE), a call to FIND results 
in a run-time error because, the default access method is sequential. 

Examples 

1. FIND (Albums. Current 2); 

If the value of Current is 6, this procedure causes the file position 
to move to the eighth component; the file buffer variable Albums" 
assumes the value of the component. If no eighth component exists. 
Albums" is undefined and UFB (Albums) is TRUE. 

2. FIND (Albums. Current -- 1); 

If the value of Current is 6, this procedure causes the file position to 
move to the fifth component. The file buffer variable Albums" assumes 
the value of the fifth component. 


12.7.3 LOCATE Procedure 

The LOCATE procedure positions a direct-access file at a particular 
component so that the next PUT procedure can modify that component. 
The LOCATE procedure has the following format: 

LOCATE (file-variable, component-number 
1. ERROR := error-recoveryl ) 
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file-variable 

The name of the file variable associated with the file to be positioned. 

component-number 

A positive integer expression that indicates the relative component number 
of the component to be found. 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the LOCATE procedure is executing (see Section 12.2.2.3). 

The file may be in any mode before LOCATE is called. The mode is set to 
Generation after the procedure's execution. 

The LOCATE procedure positions the file so that the next PUT procedure 
will write the contents of the file buffer into the selected component. After 
LOCATE has been performed, UFB is TRUE and EOF is undefined. 

Example 

LOCATE (AccountsReceivable. 63); 

AccountsReceivable" Next.Account; 

PUT (AccountsReceivable); 

The LOCATE procedure positions the file AccountsReceivable before 
relative component number 63. UFB (AccountsReceivable) is now TRUE 
and EOF (AccountsReceivable) is undefined. The assignment statement 
loads the file buffer with the contents of file position 63. The PUT 
operation writes the file buffer into file component number 63. UFB 
(AccountsReceivable) remains TRUE. 


12.7.4 UPDATE Procedure 

The UPDATE procedure writes the contents of the file buffer into the 
current component. It has the following format: 

UPDATE (file-variable[[, ERROR := error-recovery]]) 

file-variable 

The name of the file variable associated with the file v/hose component is 
to be updated. 
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error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the UPDATE procedure is executing (see Section 12.2.2.3). 

The file must be in Inspection mode before UPDATE is called; it remains 
in that mode after the procedure's execution. 

The UPDATE procedure is legal for files relative and indexed organization 
that have been opened for direct or keyed access. The current component 
must already have been locked by a successful FIND, FINDK, GET, 
RESET, or RESETK procedure before the contents of the file buffer can 
be rewritten into it. After the update has taken place, the component is 
unlocked and UFB is TRUE. 

Example 

UPDATE (OctoberSales); 

This procedure writes the file buffer contents (OctoberSales'') back into the 
current file component OctoberSales. The component is then unlocked 
and UFB (OctoberSales) is TRUE. 


12.8 Keyed Access Procedures 

The following procedures are legal only to files opened for keyed access. 

• FINDK 

• RESETK 


12.8.1 FINDK Procedure 

The FINDK procedure searches the index of an indexed file opened for 
keyed access and locates a specific component. It has the following format: 

FINDK (file-variable, key-number, key-valued, match-typeH 
d, ERROR := error-recovery]]) 
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file-variable 

The name of the file variable associated with the file to be searched. 

key-number 

A positive integer expression that indicates the key position. 

key-value 

An expression that indicates the key to be found; it must be assignment 
compatible with the key field in the specified key position. 

match-type 

An identifier that indicates the relationship between the key value in the 
FINDK procedure call and the key value of a component. 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the FINDK procedure is executing (see Section 12.2.2.3). 

A component of an indexed file can have as many as 255 key 
fields. When you establish key fields with the KEY attribute (see 
Chapter 14, Attributes), you assign each one a key number from 0 to 
254. Key number 0 represents the mandatory primary key of the file. 
Separate indexes are built for each key number in the file. 

The key value and the match type provide information about the key to 
be found. The key value must be assignment compatible with the key 
fields of the key number being searched. The match type must be one of 
the identifiers EQL, GTR, or GEQ, to indicate that the key to be found has 
a value equal to, greater than, or greater than or equal to the key value 
in the FINDK procedure call. The match type is optional; if omitted, it 
defaults to EQL. 

The FINDK procedure can be called for any indexed file opened for keyed 
access, regardless of the file's mode. If the component described exists, 
the file buffer is filled with that component; UFB and EOF both become 
FALSE. The mode is set to Inspection and the component is automatically 
locked. If no component is found to match the description, UFB becomes 
TRUE and EOF is undefined. The mode is set to Undefined. 
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Example 

FINDK (Bookindex, 1. 36, GEQ); 

This procedure searches the index for key number 1 in the file Bookindex 
until it finds the first component whose key value is greater than or equal 
to 35. If the component matching the description in the FINDK statement 
is found, UFB (Bookindex) and EOF (Bookindex) are FALSE, and the 
component is locked. If the component cannot be found, UFB (Bookindex) 
is TRUE, and EOF (Bookindex) is undefined. Bookindex must be an 
indexed file opened for keyed access. 


12.8.2 RESETK Procedure 

The RESETK procedure, like the RESET procedure (see Section 12.3.3, 
readies a file for reading. It has the following form: 

RESETK (file-variable, key-number[[, ERROR := error-recovery]]) 

file-variable 

The name of the file variable associated with the input file. 

key-number 

A nonnegative integer expression that indicates the key position. 

error-recovery 

The parameter value that indicates the action to be taken if an error occurs 
while the RESETK procedure is executing (see Section 12.2.2.3). 

The file can be in any mode before RESETK is called to set the mode to 
Inspection. 

RESETK can be applied only to indexed files opened for keyed access. You 
assign a key number from 0 to 254 to each key field of a file component 
with the KEY attribute (see Chapter 14, Attributes). The file is searched 
for the component with the lowest value in the specified key number. 

This component becomes the current component in the file and is locked. 
The value of the current component is copied into the file buffer; EOF 
and UFB are set to FALSE. If the component does not exist, EOF and UFB 
become TRUE. Note that a RESETK on key number 0 is equivalent to a 
RESET. 
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Example 

RESETK (Bookindex. 0); 

This procedure searches the file Bookindex for the component with the 
lowest value in the primary key. If this component exists, it becomes 
the current file component and is locked. UFB (Bookindex) and EOF 
(Bookindex) become FALSE. If the procedure was unable to find the com¬ 
ponent, UFB (Bookindex) and EOF (Bookindex) become TRUE. Bookindex 
must be an indexed file opened for keyed access. 


12.9 Terminal I/O 

The PASCAL standard requires that the file buffer always contain the next 
file component that will be processed by the program. This definition can 
cause problems when the input to the program depends on the output 
most recently generated. To alleviate such problems in the processing of 
the text files, VAX PASCAL uses a technique called delayed device access, 
also known as "lazy lookahead." 

As a result of delayed device access, an item of data is not retrieved from 
a physical file device and inserted in the file buffer until the program is 
ready to process it. The file buffer is filled when the program makes the 
next reference to the file. A reference to the file consists of any use of 
the file buffer variable, including its implicit use in the GET, READ, and 
READLN procedures, or any test for the status of the file, namely, the 
EOF, EOLN, STATUS, and UFB functions. 

The RESET procedure, which is required when any text file is opened for 
input, initiates the process of delayed device access. (Note that RESET 
is done automatically on the predeclared file INPUT.) RESET expects to 
fill the file buffer with the first component of the file. However, because 
of delayed device access, an item of data is not supplied from the input 
device to fill the file buffer until the next reference to the file. 

When writing a program for which the input will be supplied by a text 
file, you should be aware that delayed device access occurs. Since RESET 
initiates delayed device access, and since EOF and EOLN cause the file 
buffer to be filled, you should place the first prompt for input before any 
tests for EOF or EOLN. The information you enter in response to the 
prompt supplies data that is retained by the file device until you make 
another reference to the input file. 
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Example 

VAR 

I : INTEGER; 


BEGIN 

WRITE ('Enter an integer or an empty line: '); 

WHILE NOT EOLN DO 
BEGIN 

READLN (I); 

WRITELN ('The integer was: ', 1:1); 

WRITE ('Enter an integer or an empty line: '); 

END; 

WRITELN ('Done'); 

END. 

The first reference to the file INPUT is the EOLN test in the WHILE 
statement. When the test is performed, the system attempts to read a line 
of input from the text file. Therefore, it is very important to prompt for 
the integer or empty line before testing for EOLN. 

Suppose you respond to the first prompt by supplying an integer as input. 
Access to the input device is delayed until the EOLN function makes 
the first reference to the file INPUT. The EOLN function causes a line 
of text to be read into the internal line buffer. The subsequent READLN 
procedure reads the input value from the line of text and assigns it to 
the variable I. The WRITELN procedure writes the input value to the 
text file OUTPUT. The final statement in the WHILE loop is the request 
for another input value. The loop terminates when EOLN detects the 
end-of-line marker. 

Delayed device access can produce unexpected results if you try to use the 
STATUS function to test the status of a text file after you have performed 
a READLN on the file. Remember that a READLN procedure call actually 
performs a READ procedure on each variable listed as a parameter, then 
performs a READLN to position the file at the beginning of the next line. 
Therefore, a call to STATUS after a READLN actually tests whether the 
file was successfully positioned. To test the status of the file, STATUS 
causes delayed device access to occur, thereby filling the file buffer with 
the next component. If you want to test the successful reading of data 
from the input file, you should read the data with the READ procedure, 
call the STATUS function, and then perform a READLN to advance the 
file to the beginning of the next line. 
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Chapter 13 

Blocks, Programs, and Modules 


VAX PASCAL includes two kinds of compilation units: programs and 
modules. Although both programs and modules have declaration sections, 
only programs have executable sections. A program can be compiled, 
linked, and executed by itself. A module, on the other hand, cannot be 
executed unless it is linked with a main program written in PASCAL 
or another language. (Note that although a module may contain rou¬ 
tine declarations, these routines cannot be executed independently of a 
program.) 

VAX PASCAL gives you the option of writing modules that have the 
following characteristics: 

• They can be combined with other separately compiled, but logically 
coordinated, programs and modules for execution as a single unit. 

• They can be developed independently from other particular programs 
or modules, but used as library modules bound into larger systems at 
link time. 

This chapter describes the following: 

• Compilation unit structure 

• Blocks and scope 

• Sharing declarations and definitions 
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13.1 Compilation Unit Structure 


A VAX PASCAL compilation unit begins with a heading that identifies the 
program or module and lists the external file variables it uses. It has the 
form: 

lattribute-listH | ^q^uLE ^ I identifier [[({file-identifier},...)]]; 


attribute-list 

One or more identifiers that provide additional information about the 
compilation unit (see Chapter 14, Attributes, for details). 

identifier 

The name of the program or module. 

file-identifier 

The name(s) of the file variables associated with the external file(s) used 
by the compilation unit. 

The identifier appears only in the heading and has no other purpose 
within the compilation unit. INPUT and OUTPUT must be listed in 
the heading if they are used. File identifiers for external files other than 
INPUT and OUTPUT must be listed in the heading and must be locally 
declared in the block. INPUT and OUTPUT should not be declared in the 
block. Therefore, declarations corresponding to program parameters must 
be declared locally. A program parameter is not allowed to be an external 
or inherited file variable. 

For example, to use a file variable other than INPUT or OUTPUT, you 
could make the following declaration: 

PROGRAM KAL (INPUT. OUTPUT. ARRFILE); 

VAR 

ARRFILE : TEXT; (♦ This allocates ARRFILE locally ♦) 


See Chapter 6, Data Types, for more information on files. 

The block of a program or module begins at the end of the heading and 
continues through the end of the compilation unit. In programs, the 
outermost block is divided into two sections: the declaration section and 
the executable section. In modules, the outermost block consists solely of 
a declaration section. 
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Examples 

1. PROGRAM Testl; 

This program heading names the program Testl, but omits the file 
variable list; thus, this program does not use any external files. 

2. MODULE Squares (INPUT. OUTPUT); 

This module heading names the module Squares and specifies the 
predeclared file variables INPUT and OUTPUT. 

3. PROGRAM Payroll (Employee. Salary. OUTPUT); 

This program heading names the program Payroll and specifies file 
variables for three external files: Employee, Salary, and OUTPUT. The 
files Employee and Salary must subsequently be declared in a VAR 
section of the program. Because OUTPUT is a predeclared file variable, 
it is not declared in the program. 


13.2 Blocks and Scope 

As described in Section 10.1, a block contains a declaration section and an 
executable section. The declaration section declares labels and identifiers 
that are available within the block. An identifier declared in the declara¬ 
tion section can be used in subsequent declarations and definitions. The 
new labels and identifiers declared inside a block are "local" to that block 
and are unknown outside the scope of the routine. 

By default, all local variables in routines are automatically allocated; that 
is, the system does not retain the values of local variables after it exits 
from the routine. Rather, each call to a routine creates copies of the local 
variables. Therefore, you can call a routine recursively without affecting 
the values held by the local variables at each activation of the routine. To 
preserve the value of a local variable (not the copy) from one call to the 
next, you must declare the local variable with the STATIC attribute (see 
Chapter 14, Attributes). 

The executable section of the block contains the statements that perform 
its actions. You can cause an exit from a block with one of the following 
statements: either the last executable statement of the block, which causes 
normal termination; or a GOTO statement, which transfers control to an 
outer block. You may not, however, use a GOTO statement in an outer 
block to transfer control into an inner block. 
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13.2.1 


Scope of Identifiers 


In PASCAL, the concept of scope is important because scope defines 
the legal limits of an identifier's accessibility. The scope of an identifier 
extends from its initial declaration to the end of the block, minus any 
nested blocks that redeclare the identifier. Scope rules help limit the 
declaration of an identifier to that part of the program in which the 
identifier is actually used. By taking advantage of scope rules, you can 
use an identifier more than once within a program and give it different 
meanings. The following rules of scope apply to PASCAL identifiers: 

• An identifier can be declared only once within a particular scope. 

• A previously declared identifier can be redeclared in a nested block. 

• An identifier declared in the main program block is accessible in all 
nested blocks (except where it is redeclared); that is, its scope is the 
entire program. 

• A procedure identifier can be redeclared within its own declaration 
section. 

• A function identifier can also be redeclared, but not in a declaration 
section of the function's outermost block. Because a function identifier 
must have a value assigned to it, it can be redeclared only in a nested 
block. 

• A formal parameter name follows the same rules of scope as a function 
identifier: it can be redeclared only in a nested block. 

• A label declaration follows rules of scope similar to those for iden¬ 
tifiers. The scope of a label is the block in which it is declared, 
minus any nested blocks that redeclare the label. Therefore, you 
can transfer control from one block to an enclosing block, but you 
must follow certain restrictions, as outlined by the GOTO statement in 
Chapter 9, Statements. 

Figure 13-1 illustrates the scope of identifiers that appear in several blocks 
in a program. 
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Figure 13-1: Scope of Identifiers 


VAR 

A, B : INTEGER; 


PROCEDURE Levella 
(Z, Y : INTEGER); 

TYPE 

C = ARRAYC1..35] OF CHAR; 

VAR 

D. E : C; 


END; 

(* end PROCEDURE Levella ♦) 

PROCEDURE 

Levellb 

(V. U : 

CHAR; 

VAR T 

: INTEGER); 


FUNCTION Level2: CHAR; 



VAR 




B 

: BOOLEAN; 



END; 

(* end FUNCTION Level2 *) 



END; (* end PROCEDURE Levellb *) 


Because of PASCAL'S scope rules, the following statements about the 
identifiers declared in Figure 13-1 are true: 

• Variable identifiers A and B are accessible everywhere in the example 
and, except in function Level2 (which redeclares B as the identifier of a 
BOOLEAN variable), they represent integers. 
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• Type identifier C and variable identifiers D and E are declared in 
procedure Level la and are accessible in that block. However, the 
scope of C, D, and E does not include those blocks that are outside 
the declaring procedure. You cannot, for example, refer to the variable 
E in procedure Level lb because that block is outside the scope of the 
identifier E. 

• Function Level2 redeclares the identifier B so that it represents a 
BOOLEAN variable rather than an integer. Inside Level2, B is 
BOOLEAN, but outside that block, B is still an integer. You may 

not redeclare B within the scope of the first block shown because B has 
already been declared there to denote an integer. 

• The identifier Level la is declared as a procedure identifier in the 
outermost block of the example. Level la could have been redeclared in 
its own declaration section along with the procedure's local identifiers 
C, D, and E. 

• The identifier Level2 is declared as a function identifier within proce¬ 
dure Level lb. Level2 cannot be redeclared within its own declaration 
section, but could be redeclared within a nested block. 

• The formal parameter identifiers V, U, and T in procedure Level lb 
cannot be redeclared as local identifiers within that procedure, but 
could be redeclared within the nested block of function Level2. 


13.3 Sharing Declarations and Definitions 

By allowing compilation units to share declarations and definitions, VAX 
PASCAL provides a means for separately compiled units to communicate 
with each other. The two sharing techniques supplied by VAX PASCAL 
are: 

• The use of global and external identifiers to share variables and 
routines (see Section 13.3.1). With this method, the identifiers are 
shared among all the compilation units that compose an executable 
image. This method is the only way for compilation units written in 
different languages to share declarations. The compiler does not "heck 
each declaration of an identifier to ensure that the identifier is always 
declared with the same type. 
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• The use of environment files to share variables, routines, constants, 
and types (see Section 13.3.2). With this method, declarations and 
definitions are shared only among those compilation units that "inherit" 
them. The compiler checks to make sure that every use of a shared 
object is legal for an object of its type. This method can be used only 
when all the compilation units involved are written in PASCAL. 


13.3.1 Using Global and External Identifiers 

Variables and routines declared in a compilation unit can be referenced 
by another compilation unit if the declaration in the first compilation unit 
includes the GLOBAL attribute, and the declaration in the second compi¬ 
lation unit includes the EXTERNAL attribute (see Chapter 14, Attributes, 
for descriptions of both attributes). Because the compiler performs no 
type checking in this case, to avoid errors you must make sure that both 
declarations specify the same type. 

You cannot use global and external names to share the definitions of 
user-defined types. Global and external literals can be shared by using the 
[VALUE] attribute. See Section 14.23 for more information. 

For example, assume program A and module B share identifiers as follows: 


File A.PAS 

PROGRAM A (INPUT, OUTPUT); 

VAR 

Amt, Total, Tax: [GLOBAL] REAL; 

[EXTERNAL] PROCEDURE Calc; 

EXTERN; 

[GLOBAL] PROCEDURE Glf\ 

BEGIN 


END; 
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BEGIN 


READ (Amt); 

Calc: 

WRITELN ('PURCHASE AMOUNT Amt;10:2); 

WRITELN (' + '. Tax:10:2); 

WRITELN ('PAY THIS TOTAL Total:10:2); 

END. 

File B.PAS 

MODULE B; 

CONST 

Rate = 0.06; 


VAR 

Amt. Total. Tax: [EXTERNAL] REAL; 

[EXTERNAL] PROCEDURE Gif; 

EXTERN; 

[GLOBAL] PROCEDURE Calc; 

BEGIN 

Tax :* Amt ♦ Rate; 

Total ;» Tax Amt; 

Gif; 


END; 

END. 

In program A, the GLOBAL attribute specifies that Amt, Total, and Tax 
are global variables. Module B can refer to Amt, Total, and Tax because it 
uses the EXTERNAL attribute to specify that these variables were declared 
in another compilation unit. Amt, Total, and Tax must be declared to 
be of the same type in both compilation units. Similarly, Calc and Gif 
are declared as global procedures in one compilation unit and as external 
procedures in the other. The result is that each compilation unit can call 
the other's procedures. 
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13.3.2 Using Environment Files 


The ENVIRONMENT and INHERIT attributes (described in Chapter 14, 
Attributes) allow programs and modules to share the definitions of sym¬ 
bolic constants and user-defined types and the declarations of variables 
and routines from previously compiled units. 

An environment consists of descriptions of constant, type, variable, 
procedure, and function identifiers declared at the outermost level of a 
compilation unit. When one compilation unit inherits the environment of 
another, the effect is to incorporate the environment file directly into the 
first compilation unit. 

If you are generating an environment file and you wish to prevent infor¬ 
mation about an object from being included on the object, you should use 
the HIDDEN attribute (see Section 13.3.2.3 and Chapter 14, Attributes). 

An environment file is similar to a %INCLUDE file, with the following 
differences: 

• An environment file can contain only declarations and definitions. 

• The environment file and the compilation unit that inherits it are 
checked to ensure that their versions are consistent (see the VAX 
PASCAL User's Guide for details on version consistency). 

• The data in the environment file exists in a form that the compiler can 
handle more easily. 

• A variable inherited from an environment file is not a newly created 
variable, but is instead the same variable that was allocated storage by 
the declaring compilation unit. 

The following sections describe the uses of the ENVIRONMENT, 
HIDDEN, and INHERIT attributes. Section 13.3.2.4 explains the rules 
governing multiple declarations of identifiers. 
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13.3.2.1 


13.3.2.2 


Creating an Environment File 

To define the environment of a compilation unit, include the 
ENVIRONMENT attribute and a VAX/VMS file specification (enclosed 
in apostrophes) in an attribute list immediately preceding the program or 
module heading. The declarations and definitions made at the outermost 
level of the compilation unit are saved in a file identified by the file 
specification. 

For example, when the following program is compiled, an environment 
file named CALC.PEN is created: 


[ENVIRONMENT('CALC.PEN')] PROGRAM Calc; 
LABEL Toad; 


CONST 

Pi * 3.1416927; 


TYPE 

Ye8_No = (Yes, No); 


VAR 

Operand 

Subtotal 

Operator 

Answer 


REAL; 

REAL := 0.00; 
CHAR; 

Ye8_No; 


PROCEDURE Instructions; 


Descriptions of Pi, Yes_No, Subtotal, Operand, Operator, Answer, and 
Instructions are included in CALC.PEN. Environment files do not in¬ 
clude labels or variable initializations; therefore, the label Toad and the 
initialization of Subtotal to 0.00 are not part of CALC.PEN. 


Inheriting an Environment File 

Once an environment has been defined, other modules can reference the 
identifiers it declares by inheriting the environment with the INHERIT 
attribute. For example, if [INHERIT ('CALC.PEN')] immediately precedes 
a module heading, that module can refer to Pi, Yes_No, Subtotal, and so 
on, just as if the identifiers had been declared at the outermost level of the 
module itself. 

Using environment files, you would write program A and module B from 
Section 13.3.1 as follows: 
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File A.PAS 

[ENVIRONMENTCA.PEN')] PROGRAM A (INPUT. OUTPUT); 
CONST 

Rate » 0.06; 

VAR 

Amt, Total, Tax : REAL; 

[EXTERNAL] PROCEDURE Calc; 

EXTERN; 

PROCEDURE Gif; 

BEGIN 


END; 

BEGIN 


READ (Amt); 

Calc; 

WRITELN ('PURCHASE AMOUNT 
WRITELN (' + 

WRITELN ('PAY THIS TOTAL 
END. 


Amt:10:2); 
Tax:10:2); 
Total:10:2); 


File B.PAS 


[INHERIT('A.PEN')] MODULE B; 
[GLOBAL] PROCEDURE Calc; 


BEGIN 

Tax :* Amt ♦ Rate; 
Total :* Tax + Amt; 
Gif; 


END; 

END. 

The ability to share environments allows module B to eliminate the 
CONST definition, the VAR declarations, and the declaration of the 
procedure Gif. Program A does not inherit the environment of module B; 
therefore, the procedure Calc still must be declared GLOBAL in the called 
program (module B) and EXTERNAL in the calling program (program A). 
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A compilation unit can define only one environment file, but can inherit 
any number of environments. However, each file specification associated 
with an INHERIT attribute must represent an environment file created by 
an earlier compilation. The identifiers inherited by the compilation unit 
are not included in the environment defined by the unit. In the following 
example, the environment created by the compilation of ModA includes 
the declarations from the outermost level of ModA, but NOT those from 
Main and ModB: 

[ENVIRONMENT('MAIN.PEN')] PROGRAM Main; 

[INHERIK'MAIN.PEN'). ENVIRONMENT('MODB.PEN')] MODULE ModB; 

[INHERITC'MODB.PEN'). ENVIRONMENT('MODA.PEN')] MODULE ModA; 


13.3.2.3 HIDDEN Attribute 


When an environment file is being generated, it is possible to prevent 
information concerning a type definition or a variable, procedure, or 
function declaration from being included in the environment file by using 
the HIDDEN attribute on that definition or declaration. For example, 
when the following program is compiled, an environment file named 
CALC.PEN is created: 

[ENVIRONMENT('CALC.PEN')] PROGRAM Calc; 



CONST 


Pi » 3.1416927; 

TYPE 

Yes.No = [HIDDEN] (Yes. No); 

VAR 

Operand : REIAL; 

Subtotal : REAL; 

Answer : [HIDDEN] Yes.No; 

[HIDDEN] PROCEDURE Instructions; 


Descriptions of Pi, Operand, and Subtotal are included in CALC.PEN. 
However, due to the use of the HIDDEN attribute, the descriptions of 
Yes__No, Answer, and Instructions are not included in CALC.PEN. 

It is also possible to prevent all declarations within a declaration section 
from being included in the environment file by preceding the reserved 
word CONST, TYPE, or VAR with the HIDDEN attribute. For example, 
when the following program is compiled, an environment file named 


CALC2.PEN is created: 
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[ENVIRONMENT (•CALC2.PEN')] PROGRAM CALC2: 


[HIDDEN] CONST 

Pi * 3.1415927; 

TYPE 

Yes.No = (YES. NO); 
[HIDDEN] VAR 

Answer : Yes.No; 


The description of YES_NO is included in CALC2.PEN, however, due to 
the use of the HIDDEN attribute, the descriptions of Pi and Answer are 
not included in CALC2.PEN. 

Example 

To avoid using attributes in modules which share other data, you can use 
the READONLY and WRITEONLY attributes to enforce a one-way flow of 
information from one module PORTl to another module PORT2. 

[ENVIRONMENT ('PORTl')] 

MODULE PORTl; 

VAR 

One_Way : [HIDDEN. GLOBAL. WRITEONLY] BOOLEAN; 


END; 


[INHERIT (PORTl')] 

PROGRAM P0RT2 (OUTPUT) 

VAR 

One.Way : [EXTERNAL. READONLY] BOOLEAN; 
BEGIN 

IF One-Way 


END. 

In this example, PORTl can assign to One-Way, but cannot fetch from it, 
while PORT2 can't assign to One-Way, but can fetch from it. 

Since Module PORTl creates an environment, you should use the 
HIDDEN attribute to prevent making the READONLY or WRITEONLY 
attributes known everywhere that the environment is inherited. 
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In Program PORT2, the inheriting compilation unit does not have to use 
the HIDDEN attribute. The module in which a variable is declared global 
should be the one in which it is WRITEable. 


13.3.2.4 Multiply Declared Names 

The identifiers to which you can refer at the outermost level of a com¬ 
pilation unit—that is, all those defined in the outermost level of the 
compilation unit itself, plus those declared in all inherited environments— 
must be unique. Thus, the same identifier cannot be declared in two 
simultaneously inherited environments, and an identifier inherited from 
an environment cannot be redeclared at the outermost level of the compi¬ 
lation unit. 

Several exceptions to this redeclaration rule are needed, because a module 
can inherit the environment of a program that calls its global procedures 
or functions, or refer to its global variables. Such a conflict occurs in the 
compilation units in the following example: 

File PROG.PAS 

[ENVIRONMENT('PROG.PEN')] PROGRAM Prog; 

[EXTERNAL] PROCEDURE Inst; 

EXTERN; 


BEGIN 


Inst; 


END. 

File MOD.PAS 

[INHERITCPROG.PEN')] MODULE Mod; 
[GLOBAL] PROCEDURE Inst; 

BEGIN 


END; 

END. 
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The procedure Inst is defined in Mod and called in the executable block of 
Prog. Mod inherits the environment created by the compilation of Prog; 
thus, the identifier Inst is said to be multiply declared in Mod. 

The same problem could occur with global functions or variables. 
Therefore, VAX PASCAL allows the following exceptions to the redec¬ 
laration rule: 

• A variable identifier may be multiply declared if all declarations of the 
variable have the same type, and all but one declaration at most are 
external. 

• A procedure identifier may be multiply declared if all declarations of 
the procedure have congruent parameter lists (see Section 10.5.6), and 
all but one declaration at most are external. 

• A function identifier may be multiply declared if all declarations of the 
function have congruent parameter lists and identical result types, and 
all but one declaration at most are external. 

If one declaration of a variable or a routine is not external, it must be a 
global declaration. 


13.3.3 Examples 

Examples 

1. [ENVIRONMENT('MODI.PEN')] MODULE Modi; 

[ENVIRONMENT('M0D2.PEN')] MODULE Mod2; 

[ENVIRONMENT('M0D3.PEN')] MODULE Mod3; 

[INHERIT('MODI.PEN','M0D2.PEN','M0D3.PEN')] PROGRAM Prog; 

This example shows how large systems can be split into several 
functional components, or modules, that share environments. These 
four source files are equivalent to one long PASCAL program that 
includes all the declarations defined in all the modules. A modular 
design allows you to treat different parts of a system individually; you 
can develop the components separately, and later, when changes are 
needed, you can update and recompile one module without having to 
recompile them all. 
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2 . [ENVIRONMENT(’NEWWRITE.PEN')] MODULE Newwrite; 

This example shows the heading of a module called Newwrite, which 
might contain a special output routine. A compilation unit that wanted 
to use this routine could inherit the module's environment as follows: 

[INHERIT(’NEWWRITE.PEN')] MODULE Process; 

The module Process now has access to all the definitions and decla¬ 
rations in Newwrite. The environment for Newwrite can define the 
special symbolic constants and user-defined types needed to call the 
new routine. The availability of these additional symbolic constants 
and user-defined types enables Process to communicate easily and 
efficiently with the called routine. 
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Chapter 14 

Attributes 


An attribute is an identifier that directs the VAX PASCAL compiler to 
change its behavior in some way. Attributes allow additional control 
over the properties of data items, routines, and compilation units. An 
attribute class can consist of a single attribute identifier, or of several 
attribute identifiers with a common characteristic. When an attribute is 
not explicitly stated, the compiler follows default rules to assign properties 
to program elements. Table 14-1 lists the attribute classes that can be 
applied to formal routine parameters, routines, and compilation units. 
Table 14-2 lists the attribute classes that can be applied to data items. 


Table 14-1: Attributes on Routines and Compilation Units 


Program Element 


Class 

Routine 

Parameter 

Routine 

Compilation 

Unit 

Allocation 

No 

Yesl 

Yesl 

ASYNCHRONOUS 

Yes 

Yes 

No 

CHECK 

No 

Yes 

Yes 

Double-Precision 

No 

No 

Yes 

ENVIRONMENT 

No 

No 

Yes 

IDENT 

No 

No 

Yes 

INHERIT 

No 

No 

Yes 

INITIALIZE 

No 

Yes 

No 

LIST 

Yes 

No 

No 

Optimization 

No 

Yes 

Yes 

OVERLAID 

No 

No 

Yes 
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Table 14-1 (Cont.): Attributes on Routines and Compilation 

Units 



Program Element 



Class 

Routine 

Parameter 

Routine 

Compilation 

Unit 

UNBOUND 

Yes 

Yes 

No 

Visibility 

No 

Yes 

Yes2 


1. PSECT is the only allocation attribute allowed 

2. EXTERNAL and WEAK_EXTERNAL not allowed 


Table 14-2: Attributes on Data Items 



Data Item 






Class 

Variable 

Formal 

Parameter 

Pointer 

Base 

Type 

Component^ 

Function 

Result 

Various 

Items^ 

Alignment 

Yes 

Yes^ 

Yes^ 

Yes^ 

Yes 

No 

Allocation 

Yes 

No 

No 

No 

No 

No 

HIDDEN 

Yes 

No 

Yes 

No 

No 

No 

KEY 

No 

No 

No 

Yes^ 

No 

No 

LIST 

No 

Yes 

No 

No 

No 

No 

Parameter- 


No 

Yes 

No 

No 

No 

No 

passing 

POS 

No 

No 

No 

Yes^ 

No 

No 

READONLY 

Yes 

Yes 

Yes 

Yes 

No 

No 

Size 

Yes 

Yes^ 

Yes 

Yes^ 

Yes 

No 

TRUNCATE 

No 

Yes 

No 

No 

No 

No 

UNSAFE 

Yes 

Yes^ 

Yes 

Yes 

Yes 

Yes 

VALUE 

Yes 

No 

No 

No 

No 

No 

Visibility 

Yes 

No 

No 

No 

No 

No 

VOLATILE 

Yes 

Yes 

Yes 

Yes 

Yes 

No 

WRITEONLY 

Yes 

Yes 

Yes 

Yes 

No 

No 


1. Component of a record, array, VARYING string, or file (includes conformant 
schemas). 

2. Index of an array, tag field of a variant record (when no tag identifier is present), base 
type of a set. 

3. UNALIGNED not allowed. 
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4. Not allowed on components of files or VARYING strings. 

5. Allowed only on record fields (including the tag field of a variant record). 

6. Not allowed on conformant parameters. 

7. Not allowed on components of files or VARYING strings, or on structured types with 
file components. 

8. Not allowed on conformant VARYING parameters. 


14.1 Specifying Attributes 


A list of attributes enclosed in brackets can appear anyvs^here in a program 
that a type, a type identifier, or the heading of a routine or compilation 
unit is allowed. However, only one attribute from a particular class can 
appear in a given attribute list. The use of attribute lists is illustrated in 
the appropriate syntax diagrams throughout this manual. Notice that the 
names of attributes, when used in a suitable context, do not conflict with 
other identifiers with the same name in the program. An attribute list has 
the form: 


[{identifier! 


constant-expression 
identifier2 



}....] 


identifier 1 

The name of the attribute. 

constant- expression 

A compile-time integer expression, represented in this chapter by n, that 
qualifies several of the VAX PASCAL attributes. 

identifier2 

The name of an option available with the CHECK or OPTIMIZE attributes 
or of a storage area indicated by the COMMON and PSECT attributes. 

Some attributes require a special form of constant expression called a 
"name-string". The syntax of a name-string differs from that of other 
strings in VAX PASCAL in that a name-string cannot use the extended 
string syntax (see Section 6.3.2.2). 

Every program element listed in Tables 14-1 and 14-2 must be associated 
with one property for each applicable attribute class. The VAX PASCAL 
compiler automatically supplies the defaults for the unspecified classes at 
the time of the element's declaration. In some classes, as described in the 
following sections, the default property is not available through an explicit 
attribute. 
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Attributes can be associated with data items in two ways: 

• By appearing in a type definition in a TYPE section; the item is later 
declared to be of that type. 

• By appearing in the declaration of an item preceding its type. 

NOTE 

In VAX PASCAL, the presence of compile-time expressions 
and attribute lists leads to a minor ambiguity in the language 
syntax. If the compiler finds a left bracket ([) symbol when 
it expects to find a type or type identifier, it always assumes 
that the bracket indicates the beginning of an attribute list. The 
ambiguity arises because the left bracket could also represent 
the beginning of a set constructor that denotes the low bound 
of a subrange type. If the latter case is in fact what you intend, 
simply enclose the set constructor in parentheses; the compiler 
will interpret the expression correctly. For example: 

TYPE X = ([1] <* [2])..True; 

When a type definition includes a list of attributes, the type has only those 
attributes specified. The compiler does not supply the defaults for the 
unspecified classes until a data item is declared to be of that type. Two 
rules govern the use of attributes in a TYPE section: 

• The attributes of the type can neither conflict with nor duplicate any 
attributes explicitly stated in the data item's declaration. 

• The type cannot be used anywhere that its accompanying attributes are 
illegal. 

The following examples show both legal and illegal uses of attributes in 
type definitions: 

TYPE 


A * 

[GLOBAL] INTEGER; 





B = 

[UNALIGNED] INTEGER; 





L 

A1 ; 

[GLOBAL] A; 

(♦ 

Illegal; 

duplicates GLOBAL 





attribute of type A 

♦) 

A2 : 

[EXTERNAL] A; 

(♦ 

Illegal; 

conflicts with 





GLOBAL attribute of type A 

*) 

B1 : 

"B; 

(* 

Illegal; 

pointer base type 





cannot 

be UNALIGNED 

♦) 

C : 

A; 

(* 

Legal *) 




The first three variable declarations are illegal for the reasons shown in 
the comments. The declaration of C is legal; C is declared as a GLOBAL 
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INTEGER because of the characteristics of its type. The compiler supplies 
defaults for all other classes applicable to the variable C. 

Attributes associated with data items usually modify type compatibil¬ 
ity rules. The sections of this chapter pertaining to the accessibility, 
alignment, ASYNCHRONOUS, LIST, POS, size, UNBOUND, UNSAFE, 
and VOLATILE attributes describe their effects on type compatibility. 
Attributes applied to components of structured types affect the entire 
structure. The sections discussing the accessibility, alignment, size, and 
volatility attributes also present the rules for using these attributes with 
structured types. 

The following sections describe the attribute classes in alphabetical order. 
Note that in this chapter, the term "object" is used to indicate any program 
element to which the attributes of the class can be applied. 


14.2 Alignment Attributes 

The alignment attributes can be applied to variables, the base types 
of pointer variables, components of structured variables, and function 
results. They indicate whether the object should be aligned on a specific 
addressing boundary in memory. 

AUGNEDK (n) J 

An ALIGNED object is aligned on the memory boundary indicated by 
n. The constant expression n indicates that the address of the object 
must end in at least n zeros. ALIGNED(O) specifies byte alignment, 
ALIGNED(l) specifies word alignment, ALIGNED(2) specifies longword 
alignment, ALIGNED(3) specifies quadword alignment, ALIGNED(4) 
specifies octaword alignment, and ALIGNED(9) specifies page alignment. 

UNAUGNED 

An UNALIGNED object may be aligned on any bit boundary. 

Rules and Defaults 

• The default alignment of an object depends on its size. The VAX 
PASCAL User's Guide contains the complete rules for default alignment. 

• In VAX PASCAL, an UNALIGNED variable cannot have an allocation 
size greater than 32 bits. 
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• The constant expression n must denote an integer. If you omit it, the 
default is 0, indicating byte alignment. 

• ALIGNED(9) is the largest alignment allowed. 

• An AUTOMATIC variable (see Section 14.3) cannot have alignment 
greater than a longword. 

• The minimum alignment for an object of a structured type is the 
greatest alignment specified for any of its components. 

• Alignment attributes are illegal on components of files and VARYING 
strings. 

• The alignment of a formal VAR parameter cannot be greater than 
the alignment of a corresponding actual parameter, either by default 
or by means of an alignment attribute. In an array variable passed 
to a conformant formal parameter, alignment and size attributes (see 
Section 14.19) are illegal on all dimensions of the actual parameter, 
except the first, that correspond to the dimensions of the formal 
parameter. 

• A formal parameter cannot be UNALIGNED. Thus, an UNALIGNED 
variable cannot be passed to a formal VAR parameter. 

• The base type of a pointer variable passed to the NEW procedure 
cannot have alignment greater than a quadword, nor can it be 
UNALIGNED. 

• If the base type of a pointer variable has a specified alignment, then 
the base type of a pointer expression assigned to it must have an 
alignment equal to that of the variable. 

• Pointer types are structurally compatible only if their base types have 
identical alignment. 

Example 

VAR 

Free.Buffera : [ALIGNED(1) .WORD] -2**16. . 2*X‘16-1; 


IF ADD.INTERLOCKED (-1. Free.Bullers) <* 0 
THEN 


The predeclared function ADD_INTERLOCKED requires that the second 
parameter passed to it have word alignment and an allocation size of 
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one word. In this example, the variable Free_Bu£fers is declared with 
alignment and size attributes to meet these restrictions. The ADD^ 
INTERLOCKED function is described in Section 11.6.1. 


14.3 Allocation Attributes 

The allocation attributes can be applied to variables, routines, and com¬ 
pilation units. They indicate the form of storage that the object should 
occupy. 

STATIC 

Storage for a STATIC variable is allocated only once. A STATIC variable 
exists as long as the executable image in which it was allocated remains 
active. 

AUTOMATIC 

Storage for an AUTOMATIC variable is allocated each time the program 
enters the routine in which the variable was declared. The storage is deal¬ 
located each time the program exits from that routine. An AUTOMATIC 
variable exists as long as the declaring routine remains active. 

AT(n) 

No storage is allocated for a variable having the AT attribute. The variable 
is assumed to reside at the exact address specified by the constant expres¬ 
sion n. Variables representing machine-dependent entities are frequently 
given the AT attribute. 

commons: (identifier) ] 

Storage for a variable having the COMMON attribute is allocated in an 
overlaid program section called a common block. This attribute allows 
you to share variables with other languages (such as FORTRAN). If you 
include an identifier in the attribute, it indicates the name of the common 
block. If you omit the identifier, the name of the variable is used as the 
name of the common block. See the VAX PASCAL User's Guide for details. 

PSECT(identifier) 

The identifier designates the program section in which storage for an 
object is to be allocated. Storage for the object remains allocated as long 
as the executable image in which the object was declared remains active. 
See the VAX PASCAL User's Guide for details. 
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Rules and Defaults 

• PSECT is the only allocation attribute that can be applied to routines 
and compilation units. 

• By default, variables declared in nested blocks are automatic. 
Automatic variables may be explicitly declared in nested blocks with 
the STATIC or PSECT attributes. 

• By default, variables declared at the outermost level of a program are 
automatic, though for efficiency they may actually be made static (see 
the VAX PASCAL User's Guide). 

• Program-level variables with the AUTOMATIC attribute are not 
recorded in environment files. 

• GLOBAL and EXTERNAL variables (see Section 14.24) are implicitly 
static. Thus, they conflict with the AUTOMATIC attribute. 

• A variable having the AT, COMMON, or PSECT attribute is implicitly 
static. 

• The COMMON attribute can be applied only to variables. 

• Only one variable can be allocated in a particular common block. 
Therefore, the name of the common block cannot be used as the name 
of another common block or program section. 

• If a PASCAL program shares a record variable with a FORTRAN 
program, the fields must be laid out identically in both common 
blocks. 

Example 

PROGRAM Print.Random (OUTPUT); 

VAR 

I : [AUTOMATIC] INTEGER; 

FUNCTION Random 
:INTEGER; 

VAR 

X : [STATIC] INTEGER :* 16; 

BEGIN 

X ((9 * X) +7) MOD 11; 

Random := X; 

END; 

BEGIN 

FOR I := 1 TO 20 DO 
WRITELN (Random); 

END. 
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The program Print_Random includes a function that generates a random 
integer. Because the variable X is declared STATIC, its value will be 
preserved from one activation of the function to the next. By default, the 
storage for X would have been deallocated when control returned to the 
main program. Because X is STATIC, it retains the value it had when 
Random ended and assumes this value the next time Random is called. 
In the program Print-Random, the program-level variable I is declared 
AUTOMATIC to override the default static allocation. 


14.4 ASYNCHRONOUS Attribute 

The ASYNCHRONOUS attribute can be applied to routines and routine 
parameters declared in external routines to indicate that the routine 
may be called by an asynchronous event (such as a condition handler) . 
Since such an event can alter the values of variables within the routine 
unpredictably, the ASYNCHRONOUS attribute changes how the routine 
is optimized. 

Rules and Defaults 

• In the absence of an ASYNCHRONOUS attribute, the compiler as¬ 
sumes that the routine can be activated only by actual calls within the 
program. 

• All predeclared routines are ASYNCHRONOUS by default. 

• Any routines called from within the block of an ASYNCHRONOUS 
routine must be local to the ASYNCHRONOUS routine or must 
themselves be ASYNCHRONOUS, either by default or by an explicit 
attribute. 

• All nonlocal variables accessed from within the block of an 
ASYNCHRONOUS routine must be declared VOLATILE 
(Section 14.25), or READONLY (Section 14.18). 

• If a formal routine parameter is ASYNCHRONOUS, all actual parame¬ 
ters passed to it must also be ASYNCHRONOUS. 

• An ASYNCHRONOUS routine may be passed as an actual parameter 
to a formal routine parameter that does not have this attribute. 
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Example 

PROCEDURE Do.Something; 


VAR 

I : [VOLATILE] INTEGER; 

J : INTEGER 

[ASYNCHRONOUS] FUNCTION Handler 
: BOOLEAN; 

BEGIN 

I := I + 1; 


END; 

BEGIN 

ESTABLISH (Handler); 


END; 

This example illustrates the declaration of an ASYNCHRONOUS function. 
Handler. Note that the executable section of Handler cannot access 
variables declared in the enclosing block of the procedure Do_Something 
unless those variables are declared VOLATILE. Thus, Handler can access 
the variable I, which has the VOLATILE attribute, but cannot access the 
variable J. 



14.5 CHECK Attribute 

The CHECK attribute can be applied to routines and compilation units. 

It specifies error-checking options that are to be enabled during program 
execution. 

CHECK l[ ({identifier},...) J 

The options listed with the CHECK attribute are enabled. If you omit the 
list of options, all available positive options are enabled. 
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The options listed in Table 14-3 allow you to choose which aspects of 
a program should be checked. Options enable the specified checking 
features while their negations disable them. For example, the POINTERS 
option checks the addresses to which pointer variables refer. If you specify 
the NOPOINTERS option for a routine, the checking of pointer addresses 
is disabled inside that block. 


Table 14-3: Summary of Checking Options 


Option 

Action 

Negation 

ALL 

Enables all forms of 
checking 

NONE 

BOUNDS 

Verifies that an index ex¬ 
pression is within the 
bounds of an array’s index 
type and that character¬ 
string sizes are compatible 
with the operations being 
performed 

NOBOUNDS 

CASE^ELECTORS 

Verifies that the value of a 
case selector is contained 
in the corresponding case 
label list 

NOCASE_SELECTORS 

OVERFLOW 

Verifies that the result of 
an integer computation 
does not exceed the ma¬ 
chine representation 

NOOVERFLOW 

POINTERS 

Verifies that the value of a 
pointer variable is not NIL 

NOPOINTERS 

SUBRANGE 

Verifies that values as¬ 
signed to variables of su¬ 
brange types are within 
the subrange; verifies that 
a set expression is assign¬ 
ment compatible with a 
set variable 

NOSUBRANGE 
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Rules and Defaults 

• BOUNDS is the only option enabled by default. The defaults for 
the other options are NOCASE_SELECTORS, NOOVERFLOW, 
NOPOINTERS, and NOSUBRANGE. If you wish to enable any of 
the options, you must specify them with the CHECK attribute. 

Example 

PROGRAM Check_Features; 

[CHECK(POINTERS.CASE.SELECTORS)] PROCEDURE Linked.List 
(VAR Client : Info_Rec); 


[CHECK(OVERFLOW)] FUNCTION Integer.Compute 
(VAR Inti, Int2. IntS : INTEGER) 

: INTEGER; 


PROCEDURE Bounds.Check 

(VAR String : VARYING[30] OF CHAR; 

VAR Char.Array : ARRAY[1..25] OF CHAR; 
VAR Half.Alpha : 'A'..'M'); 


The routines Linked_List and Integer_Compute will have the specified 

options plus the BOUNDS option enabled (by default). All other options 
will remain disabled when Linked_List and Integer_Compute are called. 
The procedure Bounds_Check will have only the default BOUNDS option 
enabled. 


14.6 Double Precision Attributes 

Double-precision attributes can be applied to compilation units to indicate 
which format should be used to represent double-precision real numbers. 
These attributes choose the internal hardware representation to be used 
for items of type DOUBLE within the compilation unit. See Section 6.2, 
for a discussion of the two types of double-precision real numbers; see the 
VAX PASCAL User's Guide for details of the hardware representation. 
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G-FLOATIIMG 

Double-precision variables and expressions in the compilation unit are 
represented in G—floating format. Their values have an approximate range 
from 10-308 through 10308, and an approximate precision of 15 decimal 
digits. Not all VAX processors support the G_floating data type. 

NOG-FLOATING 

Double-precision variables and expressions in the compilation unit are 
represented in D_floating format. Their values have an approximate range 
from 10-38 through 1038, and an approximate precision of 16 decimal 
digits. 

Rules and Defaults 

• NOG_FLOATING is the default double-precision attribute. 

• All independently compiled units that are linked together should use 
the same double-precision format. 

Example 

[G.FLOATING.ENVIRONMENT('REALDATA.PEN')] MODULE Real.Data; 

[G.FLOATING.ENVIRONMENT('STRINGDATA.PEN')] MODULE String.Data; 

[G.FLOATING.INHERIT('REALDATA.PEN'.'STRINGDATA.PEN')] 

PROGRAM Record_Keeping: 

This example shows the headings of a program and the two modules 
whose environments it inherits. Note that all three compilation units must 
specify the G_FLOATING attribute in order for the G_floating format of 
representation to be used. 


14.7 EMVIROniMENT Attribute 

The ENVIRONMENT attribute can be applied to compilation units and 
causes the unit's program- or module-level declarations and definitions to 
be saved. 

ENVIRONMENT l[ (name-string) 1 

The declarations and definitions made at the outermost level of the 
compilation unit (provided they do not have the AUTOMATIC attribute) 
are saved in a newly created environment file. You must name this 
file by including a VAX/VMS file specification in the name-string (see 
Section 14.1 for the syntax of a name-string). 
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The default file type allowed for environment files is PEN, an abbrevi¬ 
ation for ''PASCAL Environment." You can, however, provide a differ¬ 
ent file type for the environment file by specifying the file type in the 
VAX/VMS file specification, as in [ENVIRONMENT('MASTER.FOO')]. 

The ENVIRONMENT attribute makes the contents of an environ¬ 
ment file available to other compilation units that inherit it. See 
Chapter 13, Blocks, Programs, and Modules for further explanation and 
examples. 

Rules and Defaults 

• If the name-string is omitted, the name of the source file is used as the 
environment file name. 


14.8 HIDDEN Attribute 

When an environment file is being generated, it is possible to prevent 
information concerning a type definition or a variable, procedure, or 
function declaration from being included in the environment file by using 
the HIDDEN attribute on that definition or declaration. 

It is also possible to prevent all declarations within a declaration sec¬ 
tion from being included in the environment file by preceding the re¬ 
served word CONST, TYPE, or VAR with the HIDDEN attribute. See 
Section 13.3.2.3 for more information on the HIDDEN attribute. 

Rules and Defaults 

• The HIDDEN attribute can only be used on objects at the outer-most 
level of the compilation unit. 


14.9 IDENT Attribute 

The IDENT attribute can be used to qualify the name of a compilation 
unit. See the VAX PASCAL User's Guide for more detail on this attribute. 

iDElMT(name-stnng) 

The name-string can contain additional information whose use is imple¬ 
mentation specific. The VAX PASCAL compiler uses this string to supply 
identification information to the linker. (See Section 14.1 for the syntax of 
a name-string.) 
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Rules and Defaults 


• In the absence of an IDENT attribute, the string '01' is supplied to the 
linker. 

Example 

[IDENTC’100.5').ENVIRONMENTC'SAMPLE.PEN')] MODULE SAMPLE: 

In this example, the IDENT string '100.5' is supplied to the linker. 


14.10 INHERIT Attribute 

The INHERIT attribute can be used to indicate the environment files to be 
inherited by a compilation unit. 

INHERIT(name‘Stnng,.,J 

The compilation unit inherits one or more environment files named by the 
VAX/VMS file descriptions in the name-strings (see Section 14.1 for the 
syntax of a name-string). 

Like the ENVIRONMENT attribute, the default file type allowed for 
environment files is PEN, an abbreviation for "PASCAL Environment." 
You can, however, provide a different file type for the environment file to 
be inherited, by specifying a file type in the VAX/VMS file specification, 
as in [INHERIT('MASTER.FOO')]. These files contain declarations and 
definitions made at program or module level in other compilation units. 
See Chapter 13, Blocks, Programs, and Modules, for further explanation 
and examples. 

Rules and Defaults 

• The environment files specified by the INHERIT attribute must already 
have been created in compilation units that have the ENVIRONMENT 
attribute. 
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14.11 INITIALIZE Attribute 


The INITIALIZE attribute can be applied to procedures to indicate that 
the procedure is to be called before the main program is entered. A 
compilation unit may include any number of INITIALIZE procedures, all 
of which are called in an unspecified order before the main program is 
entered. 

Rules and Defaults 

• In the absence of an INITIALIZE attribute, the compiler assumes that a 
routine can be activated only by actual calls within the program. 

• By default, INITIALIZE procedures have the characteristics of 
UNBOUND routines (see Section 14.21). 

• An INITIALIZE procedure cannot have a formal parameter list. 

• An INITIALIZE procedure cannot be external. 

Example 

PROGRAM Routine_Activate; 

[INITIALIZE] PROCEDURE Check.Open; 


BEGIN (* Routine.Activate *) 


In this example, the body of the INITIALIZE procedure Check-Open will 
be executed before the main program is activated. 

For more information on the INITIALIZE procedure, see LIB$INITIALIZE 
in the VAX/VMS Run-Time Library Routines Reference Manual. 


14.12 KEY Attribute 

The KEY attribute can be applied to record fields. KEY indicates that the 
field is to be used as a key field when the record is part of an indexed 
sequential file. 
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KEYB: (n) J 

A key number of 0 indicates that the field is the primary key of the record. 

All other key numbers indicate alternate keys. 

Rules and Defaults 

• The key number n must be a constant expression that denotes an 
integer value in the range from 0 through 254. If you omit the key 
number, the default value is 0. 

• When you create a new indexed file with more than one key field, you 
must make sure that the defined keys are dense; that is, you may not 
omit any key numbers in the range from 0 through the highest key 
number specified. 

• The KEY attribute is ignored except when the record is a component of 
a file (see Chapter 12, Input and Output Processing). 

• A key field can be of any ordinal type or of type PACKED ARRAY 
OF CHAR. If the key field is of type PACKED ARRAY OF CHAR, its 
length cannot exceed 255 characters. 

• The KEY attribute does not affect type compatibility rules. 

• A key field may not be UNALIGNED (see Section 14.2). 

• A key field of an ordinal type must be allocated exactly one byte, one 
word, or one longword. This restriction is imposed by VAX RMS. 

• An integer key field that is allocated one byte may not have negative 
values. This restriction is imposed by VAX RMS. 

Example 

TYPE 

Register = RECORD 

Student.No : [KEY(O)] INTEGER; 

Student_Name : RECORD 

Last.Name : PACKED ARRAY[1..20] 

OF CHAR; 

First.Name : PACKED ARRAY[1..16] 

OF CHAR; 

Initial : CHAR; 

END; 

Course_Load : INTEGEIR; 

Grade_Average : REAL; 

Class : [KEY(l)] PACKED ARRAY[1..9] OF CHAR; 

END; 

This example defines the identifier Register to denote a record type. The 

first field, Student_No, is the primary key of the record. Register contains 

another field. Class, which is established as the alternate key. 
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14.13 LIST Attribute 


The LIST attribute can be applied to a formal parameter of a routine. 

LIST indicates that the routine may be called with multiple actual pa¬ 
rameters that correspond to the last formal parameter named in the 
routine heading. You may also use the ARGUMENT and ARGUMENT— 
LIST—LENGTH predeclared routines when writing procedures and 
functions that use the LIST parameter(s). For more information, see 
Chapter 11, Predeclared Routines. 

Rules and Defaults 

• In the absence of a LIST attribute, an error results if the number of 
actual parameters exceeds the number of formal parameters. 

• The LIST attribute can be applied only to the last formal parameter in 
a parameter list. 

• You may supply zero, one, or more than one actual parameter to 
correspond to a LIST formal parameter, but you must use positional 
syntax when supplying them. The number of actual parameters you 
can supply is limited by VAX/VMS to 255. 

• You may use the LIST attribute on procedure and function parameters 
to indicate that a routine can take an arbitrary number of routine 
parameters. 

• All actual parameters that correspond to a LIST formal parameter must 
be compatible (or congruent) with the type of the formal parameter. 

• For formal and actual parameter lists to be congruent, the actual 
routine parameter and the corresponding formal routine parameter 
must either both have the LIST attribute or both lack the LIST attribute. 

Example 

PROGRAM Arg_Mech: 

[EXTERNAL(MTH$JMAXO)] FUNCTION JMaxO 
(Int.List : [LIST] INTEGER) 

: INTEGER; 

EXTERN; 

VAR 

I. J. K, L : INTEGER; 

Int.Array : ARRAY[1..10] OF INTEGER; 
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BEGIN (♦ Main Program *) 


I := JMaxO (J. K, L, Int_Array[J+l], Int.Array[K+2], 

Int.Array[L+3]); 

END. 

The program Arg_Mech illustrates the effect of the LIST attribute on 
the external function MTH$JMAXO. Within the program, this routine is 
known as the function JMaxO. JMaxO is declared with one formal LIST 
parameter; therefore, the function designator in this example contains 
excess actual parameter entries. Any number of integer expressions can be 
passed as actual parameters when JMaxO is called. 


14.14 Optimization Attributes 

Optimization attributes can be applied to routines and compilation units to 
indicate whether the VAX PASCAL compiler should optimize code. See 
the VAX PASCAL User's Guide for more information on optimization. 

OPTIMIZE [ ({identifier},...) J 

The options listed with the OPTIMIZE attribute are enabled. If you omit 
the list of options, all available positive options are enabled. 

IMOOPTIMIZE 

The compiler is prohibited from optimizing the code for the object. The 
NOOPTIMIZE attribute ensures that expressions will be evaluated from 
left to right until the value of the expression can be determined. 

The options listed in Table 14-4 allow you to choose which aspects of a 
program you want optimized. Options enable the specified optimization 
features while their negations disable them. For example, the INLINE 
option allows a routine to have inline expansion of user-defined routines. 
If you specify the NOINLINE option for a routine, the inline expansion of 
user-defined routines is disabled inside the block. 
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Rules and Defaults 

• All optimization options are enabled by default. 

Table 14-4 lists the available options, their corresponding actions, and 
their negations. 


Table 14-4: 

/OPTIMIZE Qualifier Options 


Option 

Action 

Negation 

ALL 

Enables all optimization compo¬ 
nents 

NONE 

INLINE 

Enables inline expansion of user- 
defined routines 

NOINLINE 


Example 

PROGRAM Numbers; 

[NOOPTIMIZE] PROCEDURE Process.Negative; 


This example shows the use of the NOOPTIMIZE attributes to disable 
optimization of the code for the routine Process_Negative. Code for the 
rest of the compilation unit will be optimized. 
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14.15 OVERLAID Attribute 


The OVERLAID attribute can be applied to compilation units to indicate 
how storage should be allocated for variables declared within the unit. If 
you specify OVERLAID, the variables declared at program or module level 
(unless they have the STATIC or PSECT attribute) will overlay the storage 
of static variables in all other OVERLAID compilation units. See the VAX 
PASCAL User's Guide for more information. 

This attribute is intended for use only with programs that use the de¬ 
committed separate compilation facility provided by Version 1 of VAX 
PASCAL. 

Rules and Defaults 

• By default, variables are not stored in OVERLAID compilation units. 

Example 

[OVERLAID] PROGRAM A; 

[OVERLAID] MODULE B; 

Because the OVERLAID attribute is specified, the variables declared at the 
outermost level of module B will overlay those declared at the outermost 
level of program A. 


14.16 Parameter Passing Attributes 

The parameter passing attributes can be applied to formal parameters of 

external routines. The CLASS_A, CLASS_NCA, and CLASS_S attributes 

provide access to VAX descriptor types and cause the address of the 
specified descriptor to be passed to the routine. The REFERENCE and 
IMMEDIATE attributes cause parameters to be passed with the by- 
reference and by-immediate value mechanisms. 

CLASSY 

The CLASS—A attribute causes a formal parameter to be passed as an 
array descriptor which describes contiguous arrays of atomic data types or 
contiguous arrays of fixed-length strings. 


CLASS-.NCA 

The CLASS—NCA attribute causes a formal parameter to be passed as a 
non-contiguous array descriptor. 
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CLASS-S 

The CLASS_S attribute causes a formal parameter to be passed as a single 
descriptor form which is used for scalar data and fixed-length strings. 

IMMEDIATE 

The IMMEDIATE attribute causes a formal parameter value in a routine 
declaration to be passed by immediate value. 

REFERENCE 

The REFERENCE attribute causes the address of the formal parameter 
value in a routine to be passed by reference. 

Rules and Defaults 

• VAX PASCAL'S defaults for choosing parameter passing mech¬ 
anisms are described in the VAX PASCAL User's Guide. See 
Chapter 3, Calling Conventions, for a complete list of parameters 
that can be passed by using descriptor mechanisms. 

• Parameter passing attributes may only appear in external routine 
declarations. 

Example 1 

PROCEDURE TESTl ( PI : [REFERENCE] INTEGER; 

P2 : [IMMEDIATE] INTEGER); EXTERN; 

This example defines a procedure TESTl which has two parameters. The 
first parameter PI is passed by reference. The second parameter P2 is 
passed by immediate value. 

Example 2 

PROCEDURE TEST2 ( P3 : [CLASSES] PACKED ARRAY [L..U:INTEGER] OF CHAR; 

P4 ; [CLASS.A] ARRAY [L2..U2:INTEGER] OF REAL); EXTERN; 

This example defines a procedure TEST2 which has two parameters. 

The first parameter P3 is passed by descriptor of CLASS_S. The second 
parameter P4 is passed by CLASS_A descriptor. See the VAX/VMS 
Run-Time Library Routines Reference Manual for a complete discussion of 
descriptors. 

Note that the CLASS_S attribute can be used on a formal parameter to 
signify that the parameter will be passed by a CLASS_S descriptor. The 
CLASS_S attribute is only valid on packed conformant array of characters 
that are passed by value semantics. When the CLASS_S attribute is used 
in this fashion, PASCAL will generate and accept a CLASS_S descriptor 
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for the formal parameter instead of the default CLASS_A descriptor. 

When the packed conformant array is passed by CLASS_S descriptor, the 
lower bound of the conformant schema is always 1 and the upper bound 
of the conformant schema is the length of the string being passed. 

The CLASS_S attribute allows languages that generate CLASS_S descrip¬ 
tors for character strings to pass character strings to routines written in 
PASCAL. 

Example 

PROCEDURE Print_String( 

String.Parm : [CLASSES] PACKED ARRAY [Low..High:INTEGER] OF CHAR 
); 

BEGIN 

WRITELNC'The CLASS_S string is ',String_Parm); 

WRITELNCThe lower bound is ’.Low); 

WRITELNC'The upper bound is '.High); 

END; 


14.17 POS Attribute 

The POS attribute can be applied to a field of a packed or an unpacked 

record. POS forces the field to a specific bit position within the record. 

POS(n) 

The constant expression n specifies the bit location, relative to the begin¬ 
ning of the record, at which the field begins. 

Rules and Defaults 

• VAX PASCAL'S defaults for the positioning of record fields are de¬ 
scribed in the VAX PASCAL User's Guide. 

• The constant expression n cannot denote a negative integer. 

• The beginning position of a field must be greater than the ending 
position of the field preceding it. 

• Inside a record variant, the beginning position of a field must be 
greater than the ending position of the preceding field within the same 
variant. As always, the variants themselves may overlap. 

• A record variable containing a field of a file type cannot include a POS 
attribute for any field. 

• In VAX PASCAL, a field whose allocation size is greater than 32 bits 
must be positioned on a byte boundary. 
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• The specified bit position must not conflict with the alignment explicitly 
required by an alignment attribute (see Section 14.2). 

• Two record types in which corresponding fields are not identically po¬ 
sitioned are neither assignment compatible nor structurally compatible. 


Example 

TYPE 

Control = RECORD 

Flag_l : [BIT.POS(O)] BOOLEAN; 
Flag_2 : [BIT.POS(l)] BOOLEAN; 
Count : [BYTE.ALIGNED] 0..100; 
Error : [BIT.P0S(31)] BOOLEAN; 
END; 


This example uses the POS attribute to position the fields of an unpacked 
record such that Flag_l occupies bit 0, Flag_2 occupies bit 1, and Error 
occupies bit 31. Because the Count field has size and alignment attributes, 
it is allocated one byte of storage and is aligned on the byte boundary 
following Flag_2; that is, storage for Count occupies bits 8 through 15. 
Bits 2 through 7 and 16 through 30 are left empty; there is no way for you 
to refer to them. 


14.18 READONLY Attribute 

The READONLY attribute can be applied to variables, formal parame¬ 
ters, the base types of pointer variables, and components of structured 
variables. READONLY specifies that an object can be read by a program, 
but cannot have values assigned to it. For example, if A is a READONLY 
formal parameter, you can use it in an expression such as C := A -i- B. You 
can also use A as a value parameter in routine calls such as ORD (A), and 
you can pass A as a READONLY VAR parameter. You cannot, however, 
assign values to A, as in A := B -i- C. 

Rules and Defaults 

• By default, an object can be both read and written. 

• No value of any type is assignment compatible with a READONLY 
object. 

• The presence of a READONLY component in an object of a structured 
type prohibits the object itself from having values assigned to it. 
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• A READONLY actual VAR parameter can be passed only to a 
READONLY formal VAR parameter. 

• A pointer expression whose base type is READONLY is assignment 
compatible only with a pointer variable whose base type is also 
READONLY. 

Example 

PROGRAM Test; 

TYPE 

T = RECORD 

I : INTEGER; 

END; 

PRonly * “ [READONLY] T; 


VAR 

Pro : PRonly; 
Prw ; “ T; 
PROCEDURE Q 

(P : PRonly); 

VAR 

X : INTEGER; 

BEGIN 
X P-.I; 


END; 

BEGIN 
NEW (Pro): 
NEW (Prw); 

Q (Pro); 

Q (Prw); 

Prw“.1 := 0; 


This example shows the declaration of two pointer variables. Pro and Prw, 
and the calls to NEW that create the dynamic variables Pro" and Prw". 
The type of the formal parameter P requires that a corresponding actual 
parameter have read access; therefore, both Pro and Prw can legally be 
passed to Q as actual parameters. Since P is a READONLY parameter, 
the value of the dynamic variable P" (which corresponds to either Pro" or 
Prw") can be assigned to a variable, as shown in the assignment statement 
in the body of Q. However, only Prw" can have values assigned to it, as 
shown in the last statement above. 
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14.19 Size Attributes 


Size attributes can be applied to variables, formal parameters, base types 
of pointer variables, components of structured variables, and function 
results. They specify the amount of storage to be reserved for the object. 

BIT [[(n)I] 

BYTE II (n)]] 

W0RDlI(n)I] 

LONGKn)!! 

QUADirCn)!] 

OCTAirCn)]] 

The amount of storage may be expressed in bits, bytes, words, longwords, . 
quadwords, or octawords. The optional constant n indicates the number 
of storage units. 

Rules and Defaults 

• The default size of an object depends on its type. See the VAX PASCAL 
User's Guide for the rules of default allocation sizes. 

• The constant expression n must denote a positive integer. If you omit 
n, the default value is 1. 

• In VAX PASCAL, the following size rules apply: 

— Objects of ordinal types cannot have sizes larger than 32 bits. 

— Objects of REAL, SINGLE, and pointer types must have sizes of 
exactly 32 bits. 

— Objects of type DOUBLE must have sizes of 64 bits. 

— Objects of type QUADRUPLE must have sizes of 128 bits. 

• The amount of storage described must be large enough to contain an 
object of the specified type; otherwise, a compile-time error occurs. 

• If the size specified for an object of a structured type is larger than the 
size of the type itself, the extra high order bits are not guaranteed to be 
zeroed and may contain garbage. Therefore, your program should not 
reference these undefined bits. 

• A size attribute is illegal on a conformant parameter, a component of 
a VARYING string, and an object of a structured type having a file 
component. In an array variable passed to a conformant formal param¬ 
eter, size and alignment attributes (see Section 14.2) are illegal on all 
dimensions of the actual parameter, except the first, that correspond to 
the dimensions of the formal parameter. 
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Two variables of the same type that have different allocation sizes are 
assignment compatible, but are not structurally compatible. 


Example 


PROGRAM Size; 

TYPE 

Status = [LONG] BOOLEAN; 

VAR 


Return.Status : Status; 

FUNCTION Example 

(Paraml, Param2 : INTEGER) 
: Status; 

EXTERNAL; 


The program Size defines a Boolean type Status and declares a variable 
Returru-Status of this type. Therefore, the result type of the function is 
declared to have a size of one longword. Note, however, that the machine 
code which references the result type may not copy the entire longword, 
as it is undefined. 


14.20 TRUNCATE Attribute 

The TRUNCATE attribute can be specified on a formal parameter in a 
routine declaration. TRUNCATE indicates that an actual parameter list 
for a routine can be truncated at the point that the attribute was specified. 
TRUNCATE can be used with the predeclared routine PRESENT. See 
Chapter 11, Predeclared Routines, for more information. 

Rules and Defaults 

• If a parameter with the TRUNCATE attribute is specified either in the 
actual parameter list or is specified by default, the list is not truncated 
at that point, and any parameters that follow must be present in the 
actual parameter list (unless they also have the TRUNCATE attribute, 
or are defaulted). 

• If a parameter is physically positioned after the TRUNCATE parameter 
in the formal list, and is present (or defaulted), then: 

— The list is not truncated at the TRUNCATE parameter 
— The TRUNCATE parameter must be present (or present by default) 


Attributes 14-27 








— Any parameters after the TRUNCATE parameter must be present 
(or present by default) up to the next parameter which specifies the 
TRUNCATE attribute 

• Actual parameters may be specified either positionally or nonposi- 
tionally; it is the order in the formal parameter list that is used to 
determine where the list has been truncated and which parameters are 
required. 



Example 1 


PROGRAM TRUNC (OUTPUT); 
VAR 

W : CHAR := 'w'; 

X : CHAR := 'x'; 

Y : CHAR := 'y'; 

Z : CHAR := 'z'; 


PROCEDURE P( A: 

[TRUNCATE] 

CHAR 

:= 'a'; 

B: 


CHAR 

:= 'b'; 

C: 

[TRUNCATE] 

CHAR 

:= 'c'; 

D: 


CHAR 

:= 'd' 


BEGIN 

IF PRESENT( A 
IF PRESENT( B 
IF PRESENT( C 
IF PRESENT( D 
WRITELN; 


) THEN WRITE( A ); 
) THEN WRITE( B ); 
) THEN WRITE( C ); 
) THEN WRITEC D ); 


END; 


BEGIN 
< CALL 
P: 

PO; 

P(.): 

P(..); 


LIST RESULT > 

i NO PARAMETERS--TRUNCATE AT a > 

< DEFAULT a AND b--TRUNCATE AT c "ab" > 

< DEFAULT a AND b--TRUNCATE AT c "ab” > 

< DEFAULT a. b. c AND d "abed" > 

< DEFAULT a, b. c AND d "abed" > 


P(W); 

P(W.X); 
P(W.X.Y); 
P(W.X,Y,Z); 


{ DEFAULT b--TRUNCATE AT c 
{ TRUNCATE AT c 
i DEFAULT d 
i NO DEFAULTS 


"wb" > 
"wx" > 
"wxyd" } 
"wxyz" > 


P(A:=W) 

P(B:=X) 

P(C:=Y) 

P(D;=Z) 

END. 


{ DEFAULT b--TRUNCATE AT 
{ DEFAULT a--TRUNCATE AT 
{ DEFAULT a, b AND d 
i DEFAULT a. b AND c 


"wb" > 
"ax" } 
"abyd" > 
"abez" > 


In this example, each call to procedure P in the main body of the program 
has a comment that shows the expected parameter list behaviour and the 
expected output. The parameter list is truncated either at parameter A or 
at parameter C. 
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If parameters B and D did not have defaults, the calls P(W); or P(W,X,Y); 
would be illegal, because the list cannot be truncated at the second or 
fourth positions. 

Example 2 

PROGRAM Trunc (OUTPUT); 

VAR 

A : CHAR; 

B : CHAR; 

C : INTEGER; 

PROCEDURE Values (A : CHAR; 

B : [TRUNCATE] CHAR; 

C : [TRUNCATE] INTEGER); 

BEGIN 

IF PRESENT (A) THEN WRITE ( '1-'); 

IF PRESENT (B) THEN WRITE ( •2-'); 

IF PRESENT (C) THEN WRITE ( '3!'); 

WRITELN; 

END; 

BEGIN 
Values(A); 

Values(A.B); 

Values(A.B.C); 

END. 

In this example, the first call to Values causes the procedure to print '\-' 
since only a value for the first parameter is present in the argument list. 
The second call to Values would print as there are two values in 

the argument list. The third call to Values causes '1-2-3!' to be printed, as 
each of the parameters is present in the argument list. 


14.21 UNBOUND Attribute 

The UNBOUND attribute can be applied to routines and formal routine 
parameters. An UNBOUND routine does not access automatic variables in 
the scope in which it is declared. That is, the bound procedure value of 
an UNBOUND routine does not include the static scope pointer. The VAX 
PASCAL User's Guide explains the use of the bound procedure value. 
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Rules and Defaults 


• In the absence of an UNBOUND attribute, the compiler assumes 
that the bound procedure value of a routine includes the static scope 
pointer. 

• By default, all predeclared routines and all routines declared at program 
or module level have the characteristics of UNBOUND routines. All 
routines declared in nested blocks are considered bound unless they 
have an UNBOUND attribute. 

• All routines called from within the block of an UNBOUND routine 
must be local to the UNBOUND routine, or be UNBOUND themselves, 
whether by default or by an explicit attribute. 

• Nonlocal variables accessed from within the block of an UNBOUND 
routine cannot have AUTOMATIC allocation (see Section 14.3). 

• If a formal routine parameter is UNBOUND, all actual routine parame¬ 
ters passed to it must also be UNBOUND. 

• An UNBOUND routine may be passed as an actual parameter to a 
formal routine parameter that is not UNBOUND. 

Example 

[EXTERNAL] FUNCTION F 

(7.IMMED [UNBOUND] PROCEDURE Count) 

: BOOLEAN; 

EXTERNAL; 

PROCEDURE A; 

VAR 

I : [STATIC] INTEGER; 

B ; BOOLEAN; 

[UNBOUND] PROCEDURE P; 

BEGIN 

I ;= I + 1; 


B :* F(P); 

END; 

This example illustrates the declaration of the UNBOUND procedure P 
and the UNBOUND formal procedure parameter Count. Note that the 
executable section of P cannot access variables declared in the enclosing 
block of procedure A unless those variables are statically allocated. Thus, 
Handler can access the variable I, which is declared with the STATIC 
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attribute, but cannot access the variable B, which is automatically allo¬ 
cated. Because the formal parameter Count is UNBOUND, only other 
UNBOUND routines (such as P) can be passed to function F as actual 
parameters. Count must be declared UNBOUND because it is passed by 
immediate value (see the VAX PASCAL User's Guide for more information). 


14.22 UNSAFE Attribute 

The UNSAFE attribute can be applied to variables, formal parameters, 
the base types of pointer variables, components of structured variables, 
function results, and the types of other data items (see Table 14-2). 
UNSAFE indicates that an object can accept values of any type without 
type checking. The exact properties of an UNSAFE object depend on the 
object's machine representation. 

Rules and Defaults 

• A conformant VARYING parameter may not be declared UNSAFE. 

• An expression of any type is assignment compatible with an UNSAFE 
object. However, neither the expression nor the object can contain a 
file component. If the machine representations of the expression and 
the UNSAFE object differ, the compiler forces them to have the same 
number of bits by modifying the value of the expression as follows: 

— If the expression contains more bits than the object, the low-order 
bits of the expression are assigned to the object and the high-order 
bits are discarded. 

— If the expression contains fewer bits than the object, the expression 
is assigned to the low-order bits of the object and the remaining 
high-order bits of the object are assigned zeros. 

• A pointer expression is assignment compatible with a pointer variable 
whose base type is UNSAFE only if the base types have the same 
allocation size and if they have compatible alignment, READONLY, 
VOLATILE, and WRITEONLY attributes. 

• An actual parameter variable can be passed to an UNSAFE formal VAR 
parameter if the types have the same allocation size and if they have 
compatible alignment, READONLY, VOLATILE, and WRITEONLY 
attributes. 
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• When a formal parameter is an UNSAFE conformant array, the VAX 
PASCAL compiler must be able to establish bounds for the corre¬ 
sponding actual parameter that exactly describe the amount of storage 
the parameter occupies. If the conformant array is one-dimensional, 
the actual parameter need not be an array. The compiler constructs 
the bounds of the formal array so that the actual parameter and the 
formal array have the same size. For this construction to be possible, 
the size of the actual parameter must be an exact multiple of the size 
of the formal array component. The compiler chooses the low bound 
of the formal parameter's index to be the smallest possible value of the 
index type. If the formal conformant parameter is a multidimensional 
array with n dimensions, the actual parameter must be an array having 
no fewer than n-1 dimensions. The first n-1 dimensions of the two 
arrays will have identical array bounds. The compiler chooses bounds 
for the last dimension of the conformant array so that the conformant 
as a whole describes the exact size of the actual parameter. 

Example 

PROGRAM Output^Bulfer (DataFile); 

TYPE 

Natural = 0..MAXINT; 

VAR 

DataFile : FILE OF ARRAY[0..511] OF CHAR; 

Int.Array : ARRAY[0..1023] OF INTEGER; 

String : VARYING[2048] OF CHAR; 

Chr.Array : ARRAY[0..4095] OF CHAR; 

Status : BOOLEAN; 

FUNCTION Put.Buf 

(VAR Buffer : [UNSAFE] ARRAY[A..B: Natural] OF CHAR) 

: BOOLEAN; 

VAR 

Cur : [STATIC] INTEGER := 0; 

I : INTEGER; 

BEGIN 

FOR I := A TO B DO 
BEGIN 

DataFile^[Cur] := Buffer[I]; 

Cur := Cur + 1; 

IF Cur >511 
THEN 

BEGIN 

PUT(DataFile); 

Cur := 0; 

END; 

END; 

Put.Buf := (Cur = 0); 

END; 
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BEGIN (* Main program *) 


Status 

:= Put.Buf 

(Int.Array); 

Status 

:= Put.Buf 

(String); 

Status 

:= Put.Buf 

(Chr_Array); 

END. 




The program Output-Buffer declares a function whose only formal 
parameter is an UNSAFE conformant array of characters. The function 
Put—Buf assigns successive components of the conformant array parameter 
to the file buffer variable of DataFile. If DataFile'' is filled, the function 
returns TRUE; otherwise, it returns FALSE. 

The program issues three calls to Put—Buf. In the first and second calls, 
the actual parameters are not of the same type as the formal parameter 
Buffer. But, because Buffer has the UNSAFE attribute, it accepts an 
actual parameter of any type and treats it as though it were an array of 
characters. The third call to Put—Buf passes an actual parameter of the 
same type as the formal parameter. 


14.23 VALUE Attribute 

The VALUE attribute may be used only on a variable which has either 
the EXTERNAL or GLOBAL attribute. VALUE causes the variable to be 
a reference to an external constant, or be the defining point of a global 
constant. 

Rules and Defaults 

• A value variable with GLOBAL visibility must be initialized either in 
the VAR declaraion section or in a VALUE section. 

• The VALUE attribute cannot be applied to variables larger than 32 bits. 

• The VALUE attribute is legal only on ordinal or real types. 


Attributes 
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Example 1 

PROGRAM Value.Test (OUTPUT); 



VAR 


CLI$_PRESENT : [VALUE.EXTERNAL] INTEGER; 


BEGIN 


WRITELN ('The value is'. CLI$_PRESENT); 


END. 


Example 2 


MODULE VALUE.TEST: 


VAR 


My.Global : [VALUE. GLOBAL] INTEGER := 1985; 

END. 

The first example will print the decimal value of CLI$_PRESENT which 
was resolved by the linker. 

The second example defines a global symbol with the name My_Global, 
with a value of 1985. 


14.24 Visibility Attributes 


O 


The visibility attributes can be applied to variables, routines, and compi¬ 
lation units. They control the sharing of an object between independently 
compiled units and indicate the name by which the object is known 
outside the compilation unit that declares it. See the VAX/VMS Linker 
Reference Manual for further information. 


LOCAL 


The LOCAL attribute indicates that an object is unavailable to other 
independently compiled units. Only compilation units that have access to 
the environment in which the object was declared can refer to the object. 

GLOBALB: (identifier) J 

The GLOBAL attribute provides a strong definition of an object so that 
other independently compiled units can refer to it. You can specify an 
identifier with the GLOBAL attribute to indicate the name by which the 
corresponding object is known to the VAX Linker. Normally, you do not 
include an identifier, so that the linker recognizes the same object name as 
the declaring compilation unit. 
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externals: (identifier) ] 

The EXTERNAL attribute indicates a variable or routine that is assumed 
to be GLOBAL in another independently compiled unit. If the attribute 
includes an identifier, that name, rather than the identifier being declared, 
is supplied to the VAX Linker. The names available to the linker for 
corresponding GLOBAL and EXTERNAL variables and routines must be 
identical. 

WEAK-GLOBALS (identifier) H 
WEAK-EXTERNALS (identifier) J 

These attributes are similar to the GLOBAL and EXTERNAL attributes. 

A WEAK-GLOBAL object is linked only when it is specifically included 
in the linking operation. A WEAK-EXTERNAL variable or routine is not 
critical to the linking operation. To resolve a weak reference, the linker 
searches only the named input modules. 

Rules and Defaults 

• By default, all variables and routines are LOCAL. 

• Compilation units may not have the EXTERNAL or WEAK- 
EXTERNAL attribute. 

• Variables with any visibility attribute other than LOCAL are implicitly 
static. 

• LOCAL is the only visibility attribute you can specify for nonstatic 
variables. 

• By default, GLOBAL and EXTERNAL routines have the characteristics 
of UNBOUND routines (see Section 14.21). 

• Routines with any visibility attribute other than LOCAL cannot refer to 
AUTOMATIC variables declared in enclosing blocks (see Section 14.3), 
and can call only those routines that are local, predeclared, or un¬ 
bound. (By default, routines declared at program or module level have 
the characteristics of UNBOUND routines.) 

• EXTERNAL routines must be followed by the directive EXTERN, 
EXTERNAL, or FORTRAN when they are declared (see Section 10.4.2). 
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Example 


PROGRAM Freshman.Class; 

[GLOBAL(Sort.Students)] PROCEDURE Class.List 
(VAR Register.List, 

Sorted.List : Student_Rec); 


MODULE Senior.Class; 

[EXTERNALCSort.Students)] PROCEDURE Roll.Call 
(VAR Start.List, 

End.List : Senior.Rec); 

This example shows the global declaration of a procedure with the name 
Sort-Students and an external reference to the same procedure in a 
different compilation unit. 


14.25 VOLATILE Attribute 

The VOLATILE attribute can be applied to variables, formal parameters, 
the base types of pointer variables, components of structured variables, 
and function results. VOLATILE indicates the assumptions that the 
compiler can legally make about the value of an object. Normally, a 
compiler assumes that an object's value will not be subject to unusual side 
effects. During execution, an object's value will generally change only 
under the following circumstances: 

• When another value is assigned to it 

• When it is passed as a writeable VAR parameter 

• When it is read into by a READ, READLN, or READV procedure 

• When it is used as the control variable of a FOR loop 

In addition, the compiler expects to evaluate the object only when it 
appears in an expression. 

The VOLATILE attribute informs the compiler that the object's value 
will be subject to unusual side effects during execution. In addition to 
changing in the usual ways, the value of a VOLATILE object may change 
as the result of an action not directly specified in the program. Thus, the 
compiler assumes that the value of a VOLATILE object can be changed 
or evaluated at any time during program execution. Consequently, a 
VOLATILE object does not participate in any optimization based on 
assumptions about its value. 
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The behavior of many device registers, and modifications by asynchronous 
processes and exception handlers are two examples which demonstrate 
VOLATILE behavior. 

Rules and Defaults 

• By default, objects are not VOLATILE. 

• An object of a structured type that has a VOLATILE component 
is VOLATILE as a whole. However, the presence of a VOLATILE 
component does not make other components of the same variable 
VOLATILE. 

• The presence of the VOLATILE attribute guarantees that operations 
will be performed on scalar objects in a single machine instruction. 
Because operations on structured objects may require more than one 
instruction, the use of the VOLATILE attribute on an object of a 
structured type may not produce the expected results. 

• A VOLATILE variable is structurally compatible only with a formal 
VAR parameter that is VOLATILE. 

• A pointer expression whose base type is VOLATILE is assignment 
compatible only with a pointer variable whose base type is VOLATILE. 

• Two pointer types are structurally compatible only if their base types 
have identical volatility. 

Examples 

1. VAR 

X : CHAR; 

A ; [VOLATILE] RECORD 
CASE BOOLEAN OF 

FALSE : (I : INTEGER); 

TRUE : (C : CHAR); 

END; 

BEGIN 

A.C := 'A'; (* TRUE becomes the current variant *) 

A.I := 66; (* Assignment makes FALSE the current variant *) 

X := A.C; (* TRUE is again the current variant; 

X is assigned the value 'B', which 
has an ordinal value ol 66 *) 

END. 

As the comments in this example show, a reference to one field 
identifier causes the corresponding variant to become the current 
variant. In addition, each reference immediately causes the other 
variant to become undefined. Thus, when the assignment A.I := 66 is 
made, the reference to A.I causes FALSE to become the current variant 
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made, the reference to A.I causes FALSE to become the current variant 
and A.C to become undefined. As a result of the statement X := A.C, 
the value last assigned to the variant is assigned to X. Ordinarily the 
compiler could assume that A.C had retained the value 'A', since no 
further assignments had been made directly to A.C. However, the 
value of A.C changed unexpectedly through the assignment to A.I. 
Therefore, unless the record A is declared VOLATILE, the result of 
the assignment X := A.C would be undefined because the compiler's 
legitimate assumptions had been violated. 

2. PROGRAM Volatility (OUTPUT); 

VAR 

Pint ; ^[VOLATILE] INTEGER: 

I : INTEGER; 

J : [VOLATILE] INTEGER; 

A ; ARRAY[0..10] OF INTEGER; 


BEGIN 

NEW (Pint); 

I := 0: 

J := 0; 

Pint- 0: 

(* Compiler may assume 1=0, 

WRITELN (I. J. Pint^, A[I]); 
Pint := ADDRESS (J); 

Pint" := 1; 

(♦ Compiler may assume 1=0, 

WRITELN (I, J, Pint", A[I]); 
Pint := ADDRESS (I); 

Pint" := 2; 


makes no assumptions about J *) 

(* Values are 0, 0, 0, A[0] *) 
(* Pint" now = J ♦) 

(* Therefore J now = 1 *) 

makes no assumptions about J *) 

(* Values are 0, 1, 1, A[0] *) 
(* Causes a warning message 
since I is not VOLATILE ♦) 


(* Compiler may assume 1=0 and A[I] = A[0] 

May make no assiimptions about J *) 

WRITELN (I, J, Pint", A[I]); (* Actual values are 2, 1, 2, A[2] *); 
END. 


This example assigns values to the variables I and J and to the newly 
created variable Pint". The comments illustrate the difference between 
the assumptions the compiler can legally make about the values of 
the variables and the values actually contained in the variables. The 
compiler's assumption about the value of I was incorrect because the 
value of I changed unexpectedly. The ADDRESS (I) function caused 
Pint to point to I (that is. Pint" and I became the same variable). When 
Pint" was assigned the value 2, I also received the value 2. Because I 
had been initialized to 0 and was not directly referred to in the rest of 
the program, the compiler assumed that a reference to I at this point 
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would be equivalent to a reference to 0. Likewise, the compiler also 
assumed that a reference to A[I] would be equivalent to a reference to 
A[0]. In fact, however, when execution ceases, the value of I is 2 and 
the value of A[I] is the value of A[2]. 

Depending on the optimizations the compiler made about the value 
of I, any operations performed after the unanticipated assignment to I 
could yield unexpected results. Because J was declared VOLATILE, the 
compiler did not optimize code based on the value of J. Therefore, any 
reference to J yields the expected results. 

Note that the ADDRESS (I) function in this program causes a warning 
message. The VAX PASCAL compiler assumes that pointer variables 
point only to variables in heap-allocated storage and not to statically 
allocated, nonvolatile variables such as I. Thus, ADDRESS (I) in this 
case violates the compiler's assumptions. 


14.26 WRITEONLY Attribute 

The WRITEONLY attribute can be applied to variables, formal parameters, 
the base types of pointer variables, and components of structured vari¬ 
ables. WRITEONLY specifies that an object can have values assigned to 
it but cannot be read by a program. For example, if X is a WRITEONLY 
integer variable, you can give it a new value by assignment, as in X := 23, 
or by reading a new value into it, as in READ (X). But you cannot assign 
the value of X to another variable, as in Y := X. 

Rules and Defaults 

• By default, objects can be both read and written. 

• A WRITEONLY object cannot be used in expressions. 

• A WRITEONLY component in an object of a structured type prohibits 
the object itself from being read. 

• A WRITEONLY actual VAR parameter can be passed only to a formal 
VAR parameter that is WRITEONLY. 

• A pointer expression whose base type is WRITEONLY is assign¬ 
ment compatible only with a pointer variable whose base type is 
WRITEONLY. 
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Example 

PROGRAM SAMPLE; 

TYPE 

WOnly = [WRITEONLY] INTEGER; 

VAR 

Writ.Int ; WOnly; 

Norm.Int : INTEGER; 

PROCEDURE Try.Access 

(VAR Write.Param : WOnly); 

BEGIN (* Main program *) 

Writ_Int := SQR (Norm.Int); 

Try.Access (Writ.Int); 

END. (* Main program *) 

This example shows legal statements involving WRITEONLY vari¬ 
ables. The WRITEONLY variable Writ_Int is assigned the result of 
the square root operation, and is then passed as an actual parameter to a 
WRITEONLY formal parameter. 
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Chapter 15 

Sharing Data and Declarations 


There are certain features in VAX PASCAL that allow for the easy transfer 
of information. This chapter provides information on: 

• The %INCLUDE directive, a PASCAL extension which allows you to 
access text from one source file during the compilation of another. 

• The Common Data Dictionary, a utilty that acts as a central repository 
for shareable data definitions. The Common Data Dictionary is an 
optional VAX software package, and is purchased under a separate 
license. (Contact your local area representative for information on 
purchasing the CDD.) 


15.1 The %iniCLUDE Directive 

The %INCLUDE directive allows you to access the text from one PASCAL 
source file during the compilation of another; the directive is useful when 
the same information is used by several programs. The contents of the 
included file are inserted at the point where the compiler encounters 
the %INCLUDE directive. This directive can appear anywhere that a 
comment is legal. 

y,INCLUDE 'file-spec 11/[[NOll LISTl ' 

VAX/VMS file-specification 

The name of the file to be included. Apostrophes are required to enclose 
the VAX/VMS file specification and the /LIST or /NOLIST option. (See 
Chapter 1, Using the VAX/VMS Operating System for the syntax of a 
VAX/VMS file specification.) 
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/INOJUST 

The /LIST qualifier indicates that the included file should be printed in the 
listing of the program if a listing is being generated. /LIST is the default. 

When the compiler finds the %INCLUDE directive, it stops reading from 
the current file and begins reading from the included file. When the 
compiler reaches the end of the included file, it resumes compilation at the 
point in the original file following the line that contains the %INCLUDE 
directive. If you specify neither /LIST nor /NOLIST, the source listing 
state (that is, whether or not a source listing is being produced) does not 
change when the compiler switches to the included file. 

In the following example, the %INCLUDE directive specifies the file 
CONDEF.PAS, which contains constant definitions. 

Main PASCAL Program 

PROGRAM Student.Courses (INPUT, OUTPUT, Sched); 

CONST 

^INCLUDE 'CONDEF.PAS/LIST' 

TYPE Schedules * RECORD 

Year : (Fr, So, Jr, Sr); 

Name : PACKED ARRAY[1..30] OF CHAR; 

Parents : PACKED ARRAY[1..40] OF CHAR; 

College : (Arts, Engineering, Architecture, 

Agriculture. Hotel); 

END; 


CONDEF.PAS 


Max.Class * 300; 

N^Profs * 140; 

Frosh * 3000; 

The %INCLUDE directive instructs the compiler to insert the contents 
of the file CONDEF.PAS after the reserved word CONST in the main 
program. The main program Student-Courses is compiled as though it 
were written as follows: 
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PROGRAM Student.Courses (INPUT, OUTPUT. Sched); 

CONST 

Max.Class = 300; 

N.Prols = 140; 

Frosh = 3000; 

TYPE 

Schedules = RECORD 

Year: (Fr, So, Jr, Sr); 

Name: PACKED ARRAY[1..30] OF CHAR; 

Parents : PACKED ARRAY[1..40] OF CHAR; 
College : (Arts, Engineering, Architecture, 
Agriculture. Hotel); 

END; 


You can use the % INCLUDE directive in another included file; however, 
recursive % INCLUDE directives are not allowed. If, for example, the 
file OUT.PAS contains a %INCLUDE directive for the file IN.PAS, then 
IN.PAS cannot contain the %INCLUDE directive for OUT.PAS. 

A file included at the outermost level of a program is said to be included 
at the first level. A file included by a first-level file is said to be included 
at the second level, and so on. In general, a program may not include 
any files beyond the fifth level; it may not include any files beyond the 
fourth level if you have included a %DICTIONARY directive in the fourth 
level (see Section 15.2.3). Nesting levels may be further restricted by the 
number of open files that you as a user of your system are allowed to 
have open at one time. Figure 15-1 illustrates the legal levels of included 
files. 
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Figure 15-1: %INCLUDE File Levels 


PROGRAM P 

%INCLUDE 'A.PAS' (* level 1 *) 


A.PAS 

I TYPE definitions | 

%INCLUDE 'B.PAS' (* level 2 *) 


B.PAS 

I VAR declarations } 


%INCLUDE 'C.PAS' (* level 2 *) 


C.PAS 

{ CONST definitions } 

VoINCLUDE 'D.PAS' (* level 3 *) 


D.PAS 

} VAR declarations j 

%INCLUDE 'E.PAS' (* level 4 *) 


E.PAS 

t FUNCTION declaration 1 

VoINCLUDE F.PAS' (* level 5 *) 


F.PAS 

(* May not have any 
included files *) 
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15.2 The VAX Common Data Dictionary 


The VAX Common Data Dictionary (CDD) is a set of language- 
independent structure declarations that can be shared by many VAX/VMS 
layered products. VAX PASCAL support of the CDD allows PASCAL 
programmers to share common record and data definitions with other 
VAX languages and VAX data management products. 

The CDD provides a highly effective data management system; it is 
protected from unauthorized access, and it enables the system manager to 
maintain a continual history of user access. 

NOTE 

The CDD is an optional VAX software package available under 
a separate license; you should check with your system manager 
to determine if the CDD has been installed on your particular 
system. 

CDD data definitions are organized hierarchically in much the same way 
that files are organized in directories and subdirectories. For example, a 
dictionary for defining personnel data might have separate directories for 
each employee category or type. Then, subdirectories for employees who 
are salespeople might include data definitions for records such as salary 
and commission history, as well as general personnel records. 

CDD entries are stored in an internal form; that is, you enter descriptions 
of data definitions into the CDD dictionary in a unique, general-purpose 
language called Common Data Dictionary Language (CDDL) (see the 
CDD Data Definition Language Reference Manud). The CDDL compiler 
then converts the data descriptions to an internal form, making them 
independent of any higher level language. When the program is compiled, 
CDD data definitions are then drawn into higher-level language programs 
provided that the data attributes are consistent. Program listings include 
CDD data definitions in the same language as the application program. 

Once CDD records are established, their data definitions may be ac¬ 
cessed by using the %DICTIONARY directive (see Section 15.2.3 ) 
in your PASCAL program. Then, at compile time, a special 'include' 
processor reads the correct CDD record and translates this record into 
actual PASCAL source text. You can choose to include the CDD data 
definitions in the compiler-generated source listing by specifying the 
/SHOW=DlCTIONARY qualifier on the PASCAL command, or /LIST in 
the %DICTIONARY directive. 
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The following examples illustrate how data definitions are written for 
the CDD. The first example is a structure declaration written in CDDL. 
The second example shows the same structure as it would appear in a 
PASCAL listing. 

Examples 

1. CDDL Representation: 

PAYROLL.RECORD STRUCTURE. 

SALESMAN STRUCTURE. 

NAME DATATYPE IS TEXT 30. 

ADDRESS DATATYPE IS TEXT 40. 

SALESMAN_ID DATATYPE IS UNSIGNED 
NUMERIC 6. 

END SALESMAN STRUCTURE. 

END PAYROLL.RECORD STRUCTURE. 


2. PASCAL Representation: 

PAYR0LL_REC0RD = PACKED RECORD 
SALESMAN PACKED RECORD 

NAME : PACKED ARRAY [1..30] OF CHAR; 

ADDRESS : PACKED ARRAY [1..40] OF CHAR; 

SALESMAN.ID : [BYTE(6)] RECORD END; 

END; i* record salesman *) 

END; (* record payroll^record *) 


15.2.1 Creating and Maintaining the CDD 

The CDD provides two utilities for creating and maintaining a dictionary: 

• The Dictionary Management Utility (DMU), for creating and main¬ 
taining the CDD's directory hierarchy, history lists, and access control 
lists 

• The Dictionary Verify/Fix Utility (CDDV), for repairing damaged 
dictionary files 

The creation and maintenance of the CDD should be the responsibility 
of a system manager or data administrator who understands the organi¬ 
zation's information requirements. For more information on creating or 
maintaining a CDD refer to the VAX Common Data Dictionary User's Guide. 
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15.2.2 Accessing the CDD from PASCAL programs 


DMU commands create directories and define record paths. Once these 
paths are established, you can extract records from the CDD by using the 
%DICTIONARY directive in your PASCAL program. 


15.2.3 The %OICTIONARY Directive 

When you use the %DICTIONARY directive, the CDD record and its 
attributes are extracted from the designated CDD record node at compile 
time. The compiler then converts the extracted record into a PASCAL 
type definition. Since the CDD contains only definitions, and not code, 
the %DICTIONARY directive is only allowed in the TYPE section of a 
program, not in the executable section. 

The %DICTIONARY directive has the form: 

^DICTIONARY ' cdd-path-name DE/[INO]] LIST]] ' 

cdd-path-name 

A character string which represents the full or relative pathname of a CDD 
record description to be extracted. The resulting pathname must conform 
to the rules for forming VAX CDD pathnames. 

A full pathname is one which begins with CDD$TOP and specifies names 
of all its descendants; it is a complete path to the record definition. 
Descendant names are separated from each other by a period. 

A relative pathname begins with any generation other than CDD$TOP, 
and specifies the names of the descendants after that point. A relative 
path may be accomplished by establishing a default directory with a 
logical name. For more information, refer to VAX Common Data Dictionary 
User's Guide. 

/[NOJLIST 

The /LIST qualifier indicates that the 'included' declarations should be 
printed in the listing of the program if a listing is being generated. /LIST 
is the default. 
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It should be noted that the /SHOW=DICTIONARY command line qualifier 
can be overridden by using the /NOLIST option in the %DICTIONARY 
directive. For instance, in the following example, the %DICTIONARY 
directive specifies the CDD path which contains a record description of all 
employees. 

PROGRAM SAMPLEl: 

TYPE 

%DICTIONARY 'PASCAL.SALESMAN.RECORD/LIST' 


The %DICTIONARY directive instructs the compiler to insert the TYPE 
definition that represents the record description CDD$TOP.PASCAL— 
SALESMAN—RECORD. Even though the sample program may have been 
compiled with /LISTING/SHOW=NODICTIONARY, because /LIST was 
specified on the %DICTIONARY directive, the newly formed source is 
included in the generated source listing. The main program, TEST, is 
compiled as though it were written as follows: 

TYPE 

•/.DICTIONARY ' PASCAL_SALESMAN_RECORD/LIST' 

(* CDD Path Name *> PASCAL_SALESMAN_RECORD ♦) 

PAYROLL.RECORD * PACKED RECORD 
SALESMAN PACKED RECORD 

NAME PACKED ARRAY [1..30] OF CHAR; 

ADDRESS PACKED ARRAY [1..40] OF CHAR; 

SALESMAN.ID : [BYTE(5)] RECORD END; (* numeric string, unsigned *) 

END; (* record salesman ♦) 

END; (* record payroll_record *) 


15.2.4 Equivalent PASCAL and CDDL Data Types 

VAX PASCAL attempts to make all CDDL data types accessible by 
mapping all CDDL data types onto corresponding VAX PASCAL data 
type definitions. The CDD, however, supports some data types that are 
not native to PASCAL. If a data definition contains an unsupported data 
type, PASCAL makes the unsupported data type accessible by declaring it 
as a [BYTE(n)] RECORD END, where 'n' is the appropriate length in bytes. 
By making the data addressable in this way, a PASCAL programmer is 
able to manipulate the data by either passing it to external routines as 
variables or by using the PASCAL type casting capabilities to perform an 
assignment. 
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Table 15-1 summarizes the mapping between CDDL data types and the 
corresponding PASCAL data types. For further information on CDDL data 
types, see the VAX Common Data Dictionary User's Guide and the CDD 
Data Definition Language Reference Manual. 


Table 15-1: Equivalent PASCAL and CDDL Data Types 


CDDL Data Type 


PASCAL Data Type 


unspecified 
byte logical 
word logical 
longword logical 
quadword logical 
octaword logical 
byte integer 
word integer 
longword integer 
quadword integer 
octaword integer 

F_floating 

D_floating 

G_floating 

H_floating 


[BYTE(n)] RECORD END 
[BYTE] 0..255 
[WORDIO..65535 
UNSIGNED 

[BYTE(8)] RECORD END 
[BYTE(16)] RECORD END 
[BYTE] -128..127 
[WORD] -32768..32767 
INTEGER 

[BYTE(8)] RECORD END 
[BYTE(16)] RECORD END 
SINGLE 

DOUBLE (/NOG_FLOATING) 
DOUBLE (/G_FLOATING) 
QUADRUPLE 


F_floating complex 

D_floating complex 

G_floating complex 

H_floating complex 


[BYTE (8)] RECORD END 
[BYTE (16)] RECORD END 
[BYTE (16)] RECORD END 
[BYTE (32)] RECORD END 


text PACKED ARRAY [l..u] OF CHAR 

varying text VARYING [u] OF CHAR 


numeric string, 
unsigned 
numeric string, 
left separate 
numeric string, 
left overpunch 
numeric string, 
right separate 
numeric string, 
right overpunch 
numeric string, 
zoned sign 


[BYTE(n)] RECORD END 
[BYTE(n)] RECORD END 
[BYTE(n)] RECORD END 
[BYTE(n)] RECORD END 
[BYTE(n)] RECORD END 
[BYTE(n)] RECORD END 
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Table 15-1 (Cent.): 

Equivalent PASCAL and CDDL Data 
Types 

CDDL Data Type 

PASCAL Data Type 

bit 

[BIT(n)] 0..((2*^)-l) or 

[BIT(32)] UNSIGNED or 

[BIT(n)] RECORD END or ignored 

bit unaligned 

[BIT(n),POS(x)] 0..((2^)n)-l) or 
[BIT(32), POS(x)] UNSIGNED or 
[[BIT(n)], POS (x)] RECORD END or 
ignored 

date and time 
date 

[BYTE(n)] RECORD END 
[BYTE(n)] RECORD END 

virtual field 
varying string 
overlay 
pointer 

ignored 

VARYING [u] OF CHAR 
variant record 
pointer type 


NOTE 


D_Floating and G-Jloating data types cannot be mixed be¬ 
tween routines and compilation units because both types 
cannot be handled simultaneously. Not all VAX processors 
support the G_Floating type. 
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Appendix A 

ASCII Character Set 


Table A-1 summarizes the ASCII character set. Each element of the 
character set is a constant of the predefined PASCAL type CHAR. An 
ASCII decimal number in Table A-1 is the same as the ordinal value (as 
returned by the PASCAL ORD function) of the associated character in the 
type CHAR. 

Note that VAX PASCAL uses an extended implementation of the ASCII 
character set. The extended characters, which do not appear in Table A-1, 
have the following decimal values: 


ASCII Decimal 
Number 

Meaning 

128-160 

Extended control characters 

161-254 

Extended graphics characters 

255 

"Eight Ones" 
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Table A-1: The ASCII Character Set 


ASCII 

Decimal 

Number Character Meaning 


0 

NUL 

Null 

1 

SOH 

Start of heading 

2 

STX 

Start of text 

3 

ETX 

End of text 

4 

EOT 

End of transmission 

5 

ENQ 

Enquiry 

6 

ACK 

Acknowledgement 

7 

BEL 

Bell 

8 

BS 

Backspace 

9 

HT 

Horizontal tab 

10 

LF 

Line feed 

11 

VT 

Vertical tab 

12 

FF 

Form feed 

13 

CR 

Carriage return 

14 

SO 

Shift out 

15 

SI 

Shift in 

16 

OLE 

Data link escape 

17 

DCl 

Device control 1 

18 

DC2 

Device control 2 

19 

DC3 

Device control 3 

20 

DC4 

Device control 4 

21 

NAK 

Negative acknowledgement 

22 

SYN 

Synchronous idle 

23 

ETB 

End of transmission block 

24 

CAN 

Cancel 

25 

EM 

End of medium 

26 

SUB 

Substitute 

27 

ESC 

Escape 

28 

FS 

File separator 

29 

GS 

Group separator 

30 

RS 

Record separator 

31 

US 

Unit separator 

32 

SP 

Space or blank 

33 

1 

Exclamation mark 

34 

n 

Quotation mark 

35 

# 

Number sign 

36 

$ 

Dollar sign 

37 

% 

Percent sign 
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Table A-1 (Cent.): The ASCII Character Set 


ASCII 

Decimal 

Number 


38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 


Character Meaning 


& 

Ampersand 


Apostrophe 

( 

Left parenthesis 

) 

Right parenthesis 

* 

Asterisk 

+ 

Plus sign 


Comma 

- 

Minus sign or hyphen 


Period or decimal point 

/ 

Slash 

0 

Zero 

1 

One 

2 

Two 

3 

Three 

4 

Four 

5 

Five 

6 

Six 

7 

Seven 

8 

Eight 

9 

Nine 


Colon 

* 

Semicolon 

< 

Left angle bracket 

= 

Equal sign 

> 

Right angle bracket 

7 

Question mark 

@ 

At sign 

A 

Uppercase A 

B 

Uppercase B 

C 

Uppercase C 

D 

Uppercase D 

E 

Uppercase E 

F 

Uppercase F 

G 

Uppercase G 

H 

Uppercase H 

I 

Uppercase I 

J 

Uppercase J 

K 

Uppercase K 
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Table A- 

1 (Cent.): 

The ASCII Character Set 

ASCII 

Decimal 

Number 

Character Meaning 

76 

L 

Uppercase L 

77 

M 

Uppercase M 

78 

N 

Uppercase N 

79 

0 

Uppercase 0 

80 

P 

Uppercase P 

81 

Q 

Uppercase Q 

82 

R 

Uppercase R 

83 

S 

Uppercase S 

84 

T 

Uppercase T 

85 

U 

Uppercase U 

86 

V 

Uppercase V 

87 

W 

Uppercase W 

88 

X 

Uppercase X 

89 

Y 

Uppercase Y 

90 

Z 

Uppercase Z 

91 

[ 

Left square bracket 

92 

\ 

Back slash 

93 

] 

Right square bracket 

94 

" or t 

Circumflex or up arrow 

95 

^ or_ 

Back arrow or underscore 

96 

V 

Grave accent 

97 

a 

Lowercase a 

98 

b 

Lowercase b 

99 

c 

Lowercase c 

100 

d 

Lowercase d 

101 

e 

Lowercase e 

102 

f 

Lowercase f 

103 

g 

Lowercase g 

104 

h 

Lowercase h 

105 

i 

Lowercase i 

106 

j 

Lowercase j 

107 

k 

Lowercase k 

108 

1 

Lowercase 1 

109 

m 

Lowercase m 

no 

n 

Lowercase n 

111 

0 

Lowercase o 

112 

P 

Lowercase p 
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Table A-1 (Cont.): The ASCII Character Set 


ASCII 

Decimal 

Number 

Character 

Meaning 

113 

q 

Lowercase q 

114 

r 

Lowercase r 

115 

s 

Lowercase s 

116 

t _ 

Lowercase t 

117 

u 

Lowercase u 

118 

V 

Lowercase v 

119 

w 

Lowercase w 

120 

X 

Lowercase x 

121 

y 

Lowercase y 

122 

z 

Lowercase z 

123 

{ 

Left brace 

124 

1 

Vertical line 

125 

} 

Right brace 

126 

~ 

Tilde 

127 

DEL 

Delete 


ASCII Character Set 


A-5 











Appendix B 

Syntax Summary 


The diagrams in this appendix illustrate the syntax of the following items: 

• Actual parameter list 

• Array constructor 

• Attribute list 

• Binary digits 

• Block 

• Compilation unit 

• Conformant schema 

• Decimal digits 

• Declaration part 

• Expression 

• Factor 

• Field list 

• Formal parameter list 

• Formal parameter section 

• Function heading 

• Hexadecimal digits 

• Identifier 

• Initial value 

• Mechanism specifier 

• Numeric constant 

• Octal digits 
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• Primary 

• Procedure heading 

• Real constant 

• Record constructor 

• Routine declaration 

• Set constructor 

• Simple expression 

• Simple statement 

• Simple type 

• Statement 

• String constant 

• Structured statement 

• Term 

• Type 

• Variable 

An example of how to interpret a diagram follows: 
Identifier A 
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The diagram illustrates that the first character of an identifier can be either 
an underscore (—), a dollar sign ($), or a letter. The next character is 
chosen from the section labeled A and can be a digit, a letter, a dollar 
sign, or an underscore. Section A is repeated until the identifier is defined. 
Note that rounded symbols (circles or ovals) denote elements that must 
appear exactly as shown; rectangular symbols denote elements for which 
there is a separate diagram. 


Actual Parameter List 
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Array Constructor 
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Attribute List 
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Binary Digits 



Block 
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Compilation Unit 
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Conformant Schema 
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Decimal Digits 
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Declaration Part 
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Expression 
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Factor 



ZK-115-81 


Syntax Summary B-11 


































































Field List 
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Formal Parameter List 
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Format Parameter Section 



Function Heading 
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Hexadecimal Digits 



Identifier 


-hQ — 


/ —^ 

^ —> 

^ ; 

1 

decimal 



digits 
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Initial Value 
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Mechanism Specifier 



%REF 




%IMMED 




%DESCR 




%STDESCR 
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Numeric Constant 
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Octal Digits 
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Primary 



Procedure Heading 
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Real Constant 


decimal 


decimal 

digits 



digits 



Q 


■ 0 - 




+ 



decimal 

digits 
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Record Constructor 
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Routine Declaration 



Set Constructor 
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Simple Expression 
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Simple Statement 
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Simple Type 
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Statement 
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string Constant 
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Structured Statement 
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Structured Statement (Cent.) 



Term 
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Type 



Variable 
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Appendix C 

Predeclared Routines 


This appendix summarizes VAX PASCAL'S predeclared procedures and 
functions. The routines that handle input and output are described in 
Chapter 12, Input and Output Processing; these routines can accept an 
optional parameter, designated here as e, that indicates the action to be 
taken should an error occur during the routine's execution. All other 
predeclared routines are described in Chapter 11, Predeclared Routines. 

Table C-1: Predeclared Routines 


ALLOCATION SIZE 


Function 

Parameter Type 

Result Type 

Action 

BITNEXT(x) 

X = Any type 

INTEGER 

Returns integer value indicating 
number of bits allocated for a 
component of type x in a packed 
array. 

BIT_OFFSET (t,f) 

t = Type name 
f = Field name 

INTEGER 

Returns integer value representing 
the bit-position of a field f in a 
record of type t. 

BITSIZE(x) 

X = Any type 

INTEGER 

Returns integer value indicating 
number of bits allocated for a 
field of type x in a packed record. 

BYTE_OFF- 

SET(t,f) 

t = Type name 
f = Field name 

INTEGER 

Returns integer value representing 
the byte-position of a field f in a 
record of type t. 

NEXT(x) 

X = Any type 

INTEGER 

Returns integer value indicating 
number of bytes allocated for a 
component of type x in an un¬ 
packed array. 


Predeclared Routines C-1 






Table C-1 (Cent.): Predeclared Routines 


ALLOCATION SIZE 


Function 

Parameter Type 

Result Type 

Action 

SIZE 

(x|,cl,...,cn|) 

X = Any type or 
variable 

c = Case constant 

INTEGER 

Returns integer value indicating 
number of bytes allocated for a 
variable or the allocation size of 
type X. If the variable is part of a 
variant record, case constants cl 
through cn may be specified. 

Procedure 

Parameters 

Action 


None 

ARITHMETIC 

Function 

Parameter Type 

Result Type 

Action 

ABS(x) 

X = Any arithmetic 
type 

Same as x 

Computes the absolute value of x. 

ARCTAN(x) 

X = INTEGER or 
REAL 

REAL 

Computes the arc tangent of x. 

The result is expressed in radians. 

COS(x) 

X = INTEGER or 
REAL 

REAL 

Computes the cosine of x. The pa¬ 
rameter is expressed in radians. 

EXP(x) 

X = INTEGER or 
REAL 

REAL 

Computes e^, the exponential 
function. 

LN(x) 

X = INTEGER or 
REAL 

REAL 

Computes the natural logarithm of 
X. The value x must be greater 
than 0. 

MAX(xl,...,xn) 

X = Any arithmetic 
type 

Same as x 

Returns maximum value of a list 
of expressions. 

MIN(xl,...,xn) 

X = Any arithmetic 
type 

Same as x 

Returns minimum value of a list 
of expresions. 

SIN(x) 

X = INTEGER or 
REAL 

REAL 

Computes the sin of x. The pa¬ 
rameter is expressed in radians. 

SQR(x) 

X = Any arithmetic 
type 

Same as x 

Computes x^, the square of x. 
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ARITHMETIC 

Function 

Parameter Type 

Result Type 

Action 

SQRT(x) 

X = INTEGER or 
REAL 

REAL 

Computes the square root of x. If 

X is less than 0, an error occurs. 

UAND(ul,u2) 

u= Unsigned 

Unsigned 

Performs a binary logical AND on 
the corresponding bits of parame¬ 
ters ul and u2. 

UNOT(ul) 

u=: Unsigned 

Unsigned 

Performs a binary logical NOT on 
the corresponding bits of parame¬ 
ter u. 

UOR(ul,u2) 

u= Unsigned 

Unsigned 

Performs a binary logical OR on 
the corresponding bits of parame¬ 
ters ul and u2. 

UXOR(ul,u2) 

u= Unsigned 

Unsigned 

Performs a binary logical exclusive 
OR on the corresponding bits of 
parameters ul and u2. 

XOR(pl,p2) 

p= Set or Boolean 
value 

Same as p 

Performs a binary logical exclusive 
OR operation on the corresponding 
sets or boolean values pi and p2. 


Procedure 

Parameters 


Action 

None 

CHARACTER STRING 

Function 

Parameter Type 

Result Type 

Action 

BIN(xI,l,d]l) 

X = Any type ex¬ 
cept VARYING 
OF CHAR, 
conformant ar¬ 
ray or VARY¬ 
ING schema 

VARYING OF 
CHAR 

Converts a parameter x to its bi¬ 
nary representation. Returns bi¬ 
nary value in a VARYING OF 
CHAR string of length, 1 with d 
significant digits. 
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CHARACTER STRING 


Function 

Parameter Type 

Result Type 

Action 

DEC(x|,l,dl) 

X = Any type up 
to 32 bits in 
length except 
VARYING OF 
CHAR, con¬ 
formant array, 
or varying 
schema 

1 -INTEGER 
d -INTEGER 

VARYING OF 
CHAR 

Converts a parameter x to its dec¬ 
imal representation. Returns deci¬ 
mal value in VARYING OF 

CHAR string of length 1 with d 
significant digits. 

HEX(x|,l,dl) 

X — Any type 

except VARY¬ 
ING OF 

CHAR, con¬ 
formant array, 
or VARYING 
schema 

1 -INTEGER 
d -INTEGER 

VARYING OF 
CHAR 

Converts a parameter x to its hex¬ 
adecimal representation. Returns 
hexadecimal value in a VARYING 
OF CHAR string of length 1 with 
d significant digits. 

INDEX(sl,s2) 

s — Any string type 

INTEGER 

Locates first occurence of s2 
within si. Returns integer indicat¬ 
ing leftmost position of s2. Re¬ 
turns 0 if s2 is not found. 

LENGTH(s) 

s = Any string 
type 

INTEGER 

Returns integer value indicating 
current length of s. 

OCT(x|,l,dI) 

X - Any type 

except VARY¬ 
ING OF 

CHAR, con¬ 
formant array, 
or VARYING 
schema. 

1 -INTEGER 
d -INTEGER 

VARYING OF 
CHAR 

Converts a parameter x to its oc¬ 
tal representation. Returns octal 
value in a VARYING OF CHAR 
string of length 1 with d signifi¬ 
cant digits. 
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CHARACTER STRING 

Function 

Parameter Type 

Result Type 

Action 

PAD(s,fc,l) 

s = String 

fc = Fill character 

1 = INTEGER 

VARYING OF 
CHAR 

Pads a string s with a fill charac¬ 
ter until it is of length 1. 

STATUSV 

None 

STATUS of 
previous 

READV or 
WRITEV 

Returns status of last READV or 
WRITEV completed. 

SUBSTR(s,l,d) 

s = String 

1 = INTEGER 
d = INTEGER 

VARYING OF 
CHAR 

Extracts a substring from another 
character string beginning at posi¬ 
tion 1 and extending to length d. 

UDEC(x|,l,dl) 

X = Any type up 
to 32 bits in 
length except 
VARYING OF 
CHAR, con¬ 
formant array, 
or VARYING 
schema 

1 = INTEGER 
d = INTEGER 

VARYING OF 
CHAR 

Converts a parameter x to its un¬ 
signed decimal representation. Re¬ 
turns unsigned value in a string of 
length 1 with d significant digits. 

Procedure 

Parameters 

Action 



READV(s,vl,.. 

.,vn,e) 

s = Character string 
expression 

V = Variable 
e = Error parameter 

Assigns successive values from the input 
strings to the variables vl through vn. You 
must specify at least one variable (vl). 

WRITEV(s,pl, 

...,pn,e) 

s = Character string 
variable 

p = Write parameter 
e = Error parameter 

Writes the values of pi through pn into the 
character strings. 
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DYNAMIC ALLOCATION 

Function 

Parameter Type 

Result Type 

Action 

ADDRESS(x) 

X = Any variable 
except a compo¬ 
nent of a 
packed struc¬ 
tured type 

POINTER 

Returns the pointer which refers 
to the parameter x. 

lADDRESS(x) 

X = Any variable 
except a compo¬ 
nent of a 
packed struc¬ 
tured type 

INTEGER 

Returns an integer value which re 
fers to the parameter x. 

Procedure 

Parameters 

Action 


DISPOSE (p) 

p = Pointer value 

Releases storage for p\ Any pointers to the 
storage become undefined. 

DISPOSE(p,tl,. 

..,tn) p = Pointer value 

Releases storage for p"; used when p" is a 


t = Tag field constant record with variants. If tag field values are 

specified, they must be identical to those 
specified when storage was allocated by 
NEW. 


NEW(p) 


NEW(pI,pl,...,pnl) 


p = Pointer variable 

p = Pointer variable 
t = Tag field constant 


Allocates storage for p" and assigns its ad¬ 
dress to p. 

Allocates storage for p"; used when p" is a 
record with variants. The optional parameters 
tl through tn specify the values for the tag 
fields of the current variant. All tag field val¬ 
ues must be listed in the order in which they 
were declared. They cannot be changed dur¬ 
ing execution. NEW does not initialize the 
tag fields. 
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INPUT/OUTPUT 


Function Parameter Type Result Type Action 


EOF(f) 


EOLN(f) 


STATUS(f) 


UFB(f) 


f = File variable BOOLEAN 


f = Text file BOOLEAN 

variable 


f = File variable INTEGER 


f = File variable BOOLEAN 


Indicates whether the file position 
is at the end of the file f. EOF(f) 
becomes TRUE only when the file 
position is after the last compo¬ 
nent in the file. 

Indicates whether the file position 
is at the end of a line. EOLN(f) 
becomes TRUE only when the file 
position is after the last character 
in a line, in which case the value 
of U is a space. 

Returns 0 if the previous operation 
on the file succeeded, -1 if the 
previous operation encountered an 
EOF, and a positive integer repre¬ 
senting an error code if the previ¬ 
ous operation resulted in an error. 

Returns a Boolean value to indi¬ 
cate whether the last file opera¬ 
tion gave the file buffer an unde¬ 
fined status. 


Procedure 


Parameters Action 


CLOSE(f|[,p,e|) 


DELETE(f|[,e|) 


EXTEND(f|,e|) 


f = File variable 
p = Parameter 
e = Error parameter 

f = File variable 
e = Error parameter 


f = File variable 
e = Error parameter 


Closes file f with the specified properties. 


Deletes the current component of file f. File f 
must have relative or indexed organization 
and be opened for direct or keyed access. The 
current component must be locked. 

Opens an existing file for write access; posi¬ 
tions file at EOF and places the file into gen¬ 
eration mode. 
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Procedure 

Parameters 

Action 

FIND(ft,n,eJ) 

f = File variable 
n = Component 
number 

e = Error parameter 

Moves the current file position to component 
n of file f. 

FINDK(f([,kn,kv,m,el) 

f = File variable 
kn= Key number 
kv = Key value 
m = Match type 
e = Error parameter 

Moves the current position of file f to a speci¬ 
fied component. The match type can have a 
value of EQL, GTR, or GEQ to indicate that 
the component to be found has a value in key 
position kn that is equal to, greater than, key 
value kv. Match type m is optional and de¬ 
faults to EQL. File f must be opened for 
keyed access. 

GET(fI,el) 

f = File variable 
e = Error parameter 

Moves the current file position to next compo¬ 
nent of f. Then GET(f) assigns the value of 
that component f\ the file buffer variable. 

LINELIMIT(f|,n,e]) 

f ^ Text file variable 
n = Integer 
expression 

e = Error parameter 

Terminates execution of the program when 
output to file f exceeds n lines. The value for 
n is reset to its default after each call to 
REWRITE for file f 

LOCATE(ft,n,el) 

f = File variable 
n = Component 
number 

e == Error parameter 

Positions file f at component n so that the 
next PUT procedure can modify n. 

OPEN(fI,p,e]) 

f = File variable 
p Parameter 
e = Error parameter 

Opens file f with the specified properties. 

PAGE(fI,el) 

f = Text file variable 
e = Error parameter 

Skips to the next page of file f. The next line 
written to f begins on the second line of a new 
page. 

PUT(f|,el) 

f = File variable 
e = Error parameter 

Writes the value of fL the file buffer variable, 
into the file f and moves the current file posi¬ 
tion to the next component of f. 

READ(ff,vl,...,vn,e]) 

f = File variable 

V = Variable 
e = Error parameter 

Assigns successive values from the input file f 
to the variables vl through vn. You must 
specify at least one variable (vl). 
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Procedure 

READLN 

(ff,vl,...,vn,ej) 

RESET(f|,el) 

RESETK(fI,kn,e]) 

REWRITE(f[[,e]) 

TRUNCATE(f|[,e|) 

UNLOCK(f|,el) 

UPDATE(ff,el) 

WRITE(f|[,pl,...,pn,e|) 

WRITELN 

(ff,pl,...,pn,e]) 


Parameters Action 


f = File variable 
V = Variable 
e = Error parameter 

f = File variable 
e = Error parameter 


f = File variable 
kn^ Key number 
e Error parameter 

f = File variable 
e = Error parameter 

f = File variable 
e = Error parameter 

f = File variable 
e = Error parameter 

f = File variable 
e Error parameter 


f = File variable 
p = Write parameter 
e = Error parameter 

f = File variable 
p = Write parameter 
e = Error parameter 


Performs the READ procedure, then sets the 
current file position to the beginning of the 
next line. 

Enables reading from file f. RESET(f) moves 
the current file position to the beginning of 
the file f and assigns the first component of f 
to the file buffer variable, f\ EOF(f) is set to 
FALSE unless the file is empty. 

Enables reading from file f. RESETK(f,kn) 
moves the current file position to the compo¬ 
nent with the lowest value in key position kn. 
File f must be opened for keyed access. 

Enables writing to file f. REWRITE(f) trun¬ 
cates the file f to zero length and sets EOF(f) 
to TRUE. 

Deletes current file component and all compo¬ 
nents following it. File f must have sequential 
organization. 

Unlocks the current file component if it is 
locked. 

Writes the contents of the file buffer into the 
current component. File f must have relative 
or indexed organization and be opened for di¬ 
rect or keyed access. The current component 
must be locked. 

Writes the values of pi through pn into the 
file f. At least one parameter (pi) must be 
specified. 

Performs the WRITE procedure, then skips to 
the beginning of the next line. 
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LOW_LEVEL 

Function 

Parameter Type 

Result Type 

Action 

ADD__INTER- 
LOCKED (e,v) 

e = Assignment 
compatible 
with V 

v= Integer, un¬ 
signed, or sub¬ 
range 

INTEGER 

Adds e to v. Returns -1 if result is 
negative, 0 if result is zero, -i-l if 
result is positive. 

CLEAR^NTER- 
LOCKED (b) 

b ^ Boolean 

BOOLEAN 

Assigns FALSE to parameter b 
and returns its original value. 

FIND_FIRST_ 

BIT_ 

CLEAR(v|,si|) 

V = Variable of 
type PACKED 
ARRAY OF 
BOOLEAN 
with integer 
index type 
si = INTEGER 

INTEGER 

Locates the first bit in a 

PACKED ARRAY OF BOOLEAN 
whose value is 0. The optional 
start-index argument indexes the 
element at the point which the 
search starts. 

FIND_FIRST_ 

BIT_SET(v|,si]) 

V == Variable of 
type PACKED 
ARRAY OF 
BOOLEAN 
with integer 
index type 
si - INTEGER 

INTEGER 

Locates the first bit in a 

PACKED ARRAY OF BOOLEAN 
whose value is 1. The optional 
start-index argument indexes the 
element at the point which the 
search starts. 

FIND_MEM- 

BER(s,c) 

s = String 
c -SET of CHAR 

INTEGER 

Locates the first character in a 
string that is a member of a speci¬ 
fied set. 

FIND__NON- 

MEMBER(s,c) 

s - String 
c -SET of CHAR 

INTEGER 

Locates the first character in a 
string that is not a member of a 
specified set. 

SET_JNTER- 

LOCKED(b) 

b - Boolean 

BOOLEAN 

Assigns TRUE to parameter b and 
returns it original value. 

Procedure 

Parameters 


Action 


None 
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ORDINAL 

Function 

Parameter Type 

Result Type 

Action 

PRED(x) 

X = Any ordinal 
type 

Same as x 

Returns the predecessor value in 
the type of x. 

SUCC(x) 

X = Any ordinal 
type 

Same as x 

Returns the successor value in the 
type of X. 

Procedure 

Parameters 


Action 

None 

PARAMETER 

Function 

Parameter Type 

Result Type 

Action 

ARGUMENT(p,n) 

p = Parameter 
n = INTEGER 

Same as p 

Specifies an argument which cor¬ 
responds to a routine parameter 
which uses the LIST attribute. 

ARGUMENT_ 

LIST_LENGTH(p) 

p == Parameter 

INTEGER 

Returns an integer value which 
represents the number of parame¬ 
ters corresponding to a parameter 
which uses the LIST attribute. 

PRESENT(p) 

p = Parameter 

BOOLEAN 

Indicates whether the argument 
list of a routine contains an argu¬ 
ment which corresponds to a for¬ 
mal parameter. 

Procedure 

Parameters 


Action 


None 
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TRANSFER 

Function 

Parameter Type 

Result Type 

Action 

CHR(x) 

X = INTEGER 

CHAR 

Returns the character whose ordi¬ 
nal value is x. 

DBLE(x) 

X = Any arithmetic 
type 

DOUBLE 

Converts the value of x to its dou¬ 
ble-precision equivalent. 

INT(x) 

X = Any ordinal 
type 

INTEGER 

Converts the value of x to an inte¬ 
ger. 

ORD(x) 

X = Any ordinal 
type 

BOOLEAN 

Returns the ordinal value corre¬ 
sponding to the value of x. 

QUAD(x) 

X = Any arithmetic 
type 

QUADRUPLE 

Converts the value of x to its 
quadruple-precision equivalent. 

ROUND(x) 

X =REAL 

INTEGER 

Rounds the REAL value x to the 
nearest integer. 

SNGL(x) 

X = Any arithmetic 
type 

SINGLE 

Converts the value of x to its sin¬ 
gle-precision equivalent. 

TRUNC(x) 

X =REAL 

INTEGER 

Truncates the REAL value x to an 
integer. 

UINT(x) 

X = Any ordinal 
type 

Unsigned 

Converts the value of x to its un¬ 
signed equivalent. 

UROUND(x) 

X =REAL 

Unsigned 

Converts the value of x to its un¬ 
signed equivalent by rounding the 
fractional part of the value. 

UTRUNC(x) 

X = REAL 

Unsigned 

Converts the value of x to its un¬ 
signed equivalent by truncating 
the fractional part of the value. 
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Procedure 

Parameters 

Action 

PACK (a,i,z) 

a = unpacked array variable 
i = starting index of array a 
z = packed array of type a 

Copies components of an unpacked ar¬ 
ray variable to a packed array variable. 
UNPACK(a,i,z) assigns the components 
of a, starting with a [i], to the array z. 

UNPACK(z,a,i) 

z = packed array of type a 
a = Unpacked array variable 
i = Starting index of array a 

Copies components of a packed array 
variable to an unpacked array variable. 
UNPACK(a,i,z) assigns the components 
of a, starting with a [i], to the array z. 


MISCELLANEOUS 


Function 

Parameter Type 

Result Type 

Action 

CARD(s) 

s = Set 

INTEGER 

Returns the number of elements 
currently belonging to the set s. 

CLOCK 

None 

INTEGER 

Returns an integer value equal to 
the central processor time used by 
the current process. 

EXPO(x) 

X = Real, single, 
double or 
quadruple 

INTEGER 

Returns the integer valued expo¬ 
nent of x’s floating point represen¬ 
tation. 

ODD(x) 

X ^ Integer or 
unsigned 

BOOLEAN 

Tests whether the value of x is 
odd. 

UNDEFINED(x) 

X = Real, single, 
double or 
quadruple 

BOOLEAN 

Tests whether x contains a re¬ 
served operand. 

ZERO 

None 

See the VAX 
PASCAL 

User’s Guide, 
Table 3-3. 

Sets a variable to its binary zero 
value. 
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Procedure 

Parameters 

Action 

CREATE__DIREC- 

TORY(ff,el) 

f = File name 
e = Error parameter 

Creates a new VMS directory or subdirectory 
named f. 

DATE(str) 

str Variable of type 
PACKED 

ARRAY [1..11] 

OF CHAR 

Assigns current date to str. 

DELETE__FILE(fj[,e]) 

f = File name 
e = Error parameter 

Deletes one or more VMS files named f. 

ESTABLISH(id) 

id = Function 
identifier 

Establishes a VAX condition handler to pro¬ 
cess exceptions. Id must be the name of a 
routine that has the ASYNCHRONOUS at¬ 
tribute. 

HALT 

None 

Calls LIB$STOP, signalling PAS$ABORT. 
Without an appropriate condition handler, 
HALT terminates execution of the program. 

RENAME_ 

FILE(ofn,nfn,e) 

ofn = Old file name 
nfn = New file name 
e = Error parameter 

Renames one or more VMS files, ofn, to a 
new name, nfn. 

REVERT 

None 

Cancels a conditon handler activated by the 
ESTABLISH procedure. 

TIME(str) 

str = Variable of type 
PACKED AR¬ 
RAY [1..11] OF 
CHAR 

Assigns current time to str. 
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Appendix D 

Summary of VAX PASCAL Extensions 


Table D-1 summarizes the language features provided in VAX PASCAL that are not part 
of the PASCAL language definition. 

Table D~1: Language Extensions 


Category 


Extension 


Lexical and syntactical Reserved words: MODULE, OTHERWISE, REM, VALUE, 

extensions VARYING, %DESCR, %STDESCR, %IMMED, %REF, 

%INCLUDE 

Exponentiation operator (**) 

REM operator 

Type cast operator (::) for variables and expressions 

Binary, hexadecimal, and octal notation for integers 

Double- and quadruple-precision real numbers 

Dollar sign ( $ ) and underscore (_) characters in identi¬ 

fiers 

Identifiers that can begin with any character other than a 
digit but whose first 31 characters must be unique 

Extended syntax for inclusion of nonprinting characters in 
character strings 

Compile-time constant expressions allowed anywhere a con¬ 
stant is allowed 

Constructors of structured types used anywhere in place of 
a constant of the structured type 

Attributes used with data items, routines, and compilation 
units 

Relaxed rules for assignment compatibility 

Structural compatibility enforced between actual and for¬ 
mal parameters 
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Category 

Extension 

Predefined types 

UNSIGNED, SINGLE, DOUBLE (D_floating and G_ 
floating), QUADRUPLE 

VARYING OF CHAR structured type and concatena¬ 
tion operator for all strings 

Predeclared procedures 

CLOSE, CREATE__DIRECTORY, DATE, DELETE, 
DELETE_FILE, ESTABLISH, EXTEND, FIND, 
FINDK, HALT, LINELIMIT, LOCATE, OPEN, 
READY, RENAME_FILE, RESETK, REVERT, 
TIME, TRUNCATE, UNLOCK, UPDATE, 
WRITEV 

Predeclared functions 

Boolean functions: UFB and UNDEFINED 

Transfer functions: DBLE, INT, MAX, MIN, QUAD, 
TRUNC, UINT, UROUND, UTRUNC 

Dynamic allocation function: ADDRESS, lAD- 
DRESS 

Character-string functions: BIN, DEC, HEX, IN¬ 
DEX, LENGTH, OCT, PAD, STATUSV, SUBSTR, 
UDEC 

Parameter functions: ARGUMENT, ARGUMENT— 
LIST_LENGTH, PRESENT 

Arithmetic functions: UAND, UNOT, UOR, UXOR, 
XOR 

Allocation size functions: BIT_OFFSET, BITNEXT, 
BITSIZE, BYTE_OFFSET, NEXT, SIZE 

Low-level functions: ADD_JNTERLOCKED, 
CLEAR_[NTERLOCKED, FIND_FIRST_BIT_ 
CLEAR, FIND_FIRST_BIT_SET, FIND_MEM- 
BER, FIND_NONMEMBER, SET_tNTER- 
LOCKED, 

Miscellaneous functions: CARD, CLOCK, EXPO, 
ZERO 

READ, READLN, 
WRITE, 

WRITELN extensions 

Parameters of character-string, enumerated types, 
and nondecimal radix for READ and READLN 

Parameters of enumerated types for WRITE and 
WRITELN 
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Category 

Extension 


Prompting at the terminal with a WRITE/READ or 
WRITE/READLN sequence 

Optional carriage-control specification for text files 
with WRITE and WRITELN 

Optional error recovery 

Extended I/O capabilities 

Direct access and relative file organization 

Keyed access and indexed file organization 

Declarations 

Declaration and definition sections that can appear 
more than once and in any order 

Initialization of static variables in VAR declaration 
sections at program or module level 

VALUE initialization section 

OTHERWISE clause in variant records 

Partial initialization of arrays and records 

Statements 

OTHERWISE clause in CASE statement 

Procedures and functions 

Functions that return values of structured types 
(other than file types) 

Functions called as procedures 

External procedure and function declarations 

Default values for formal parameters 

Nonpositional parameter passing 

Extended mechanism specifiers for passing parame¬ 
ters to external procedures and functions: %IMMED, 
%REF, %DESCR, %STDESCR 

Truncatable parameter lists 

Compilation 

MODULE capability for combining declarations and 
definitions to be compiled independently from the 
main program 

ENVIRONMENT and INHERIT attributes to con¬ 
trol independent compilation 
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Appendix E 

Description of Implementation Features 


The ISO standard for PASCAL allows some features of the language 
to be defined by a particular implementation or dependent on an im¬ 
plementation. This appendix lists all features of VAX PASCAL that are 
implementation-defined or implementation-dependent, and explains how 
these features are treated by VAX PASCAL. 


E.1 Implementation-Defined Features 

The value of each character allowed in a character string: 

VAX PASCAL Treatment: See Appendix A, ASCII Character Set 

The range of real number values represented by the type REAL: 

VAX PASCAL Treatment: See the VAX/VMS Introduction to System 
Routines 

The characters represented by the type CHAR and their ordinal values: 

VAX PASCAL Treatment: See Appendix A, ASCII Character Set 

The point at which the REWRITE, PUT, RESET, and GET procedures are 
performed on a file: 

VAX PASCAL Treatment: Performed immediately unless the file is a 
terminal file, in which case delayed device access occurs (see Section 12.9) 

The value of MAXINT: 

VAX PASCAL Treatment: 2,147,483,647 

The accuracy to which the results of real-number operations are calculated: 
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VAX PASCAL Treatment: See the VAX/VMS Introduction to System 
Routines and the VAX Record Management Services Reference Manual 

Default field widths: 

VAX PASCAL Treatment: 


Values of type INTEGER 
Values of type REAL 
Values of type BOOLEAN 


10 

12 

6 


The number of digits used to represent the exponent of a floating-point 
number: 

VAX PASCAL Treatment: 


F_floating or D_floating 

G_floating 

H_floating 


2 

3 

4 


The value of the exponent character: 

VAX PASCAL Treatment: 'E' 

The case (upper or lower) in which the Boolean values TRUE and FALSE 
are printed as output: 

VAX PASCAL Treatment: Uppercase; that is, TRUE and FALSE 
The effect of the PAGE procedure: 

VAX PASCAL Treatment: PAGE writes a line containing only the 
form-feed character (ASCII value 12) 

The binding of a file variable whose name is listed in the program head¬ 
ing: 

VAX PASCAL Treatment: The file name (unless it is INPUT or 
OUTPUT) is equated to a logical name, if a translation for the file name 
exists. If there is no corresponding translation, the file type DAT is ap¬ 
pended to the name listed in the heading, as in INFILE.DAT. If the file 
name is INPUT, the file is equated to PAS$INPUT, if PAS$INPUT is 
defined; otherwise, the file is equated to SYS$INPUT. Similarly, if the file 
name is OUTPUT, the file is equated to PAS$OUTPUT, if PAS$OUTPUT 
is defined; otherwise, the file is equated to SYS$OUTPUT. 
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E.2 Implementation-Dependent Features 


The order of evaluation of the following items: 

• Index values of an array variable 

• Expressions in a set constructor 

• Operands in a dyadic operation 

VAX PASCAL Treatment: Random order 

Order of evaluating, accessing, and binding of actual parameters in a 
function designator and a procedure call: 

VAX PASCAL Treatment: Random order 

Order of accessing the variable and evaluating the expression in an 
assignment statement: 

VAX PASCAL Treatment: Random order 

The effect of reading a text file for which the PAGE procedure was called: 

VAX PASCAL Treatment: Reads a line containing only the form-feed 
character (ASCII value 12) 

The binding of a file variable whose name is listed in the program heading 
to entities that are external to the program: 

VAX PASCAL Treatment: Reported as an error at compile time 
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Appendix F 

Error Detection 


This appendix describes how the VAX PASCAL compiler and run-time 
system detect violations of the PASCAL language standard. Errors de¬ 
tected at run time cause a program to terminate and return appropriate 
error messages. Errors described here as "not detected" cause a program to 
produce unexpected results. 

The type of an index value is not assignment compatible with the 
index type of an array. 

Explanation. Detected at run time if bounds checking was 
enabled during compilation. 

The current variant changes while a reference to it exists. 

Explanation. Not detected. An example of a reference to a 
variant is the passing of the variant to a formal VAR parameter. 

The value of a variable to which a pointer refers (p") is NIL. 

Explanation. Usually detected at run time. Always detected if 
pointers checking was enabled during compilation. 

The value of a variable to which a pointer refers (p") is undefined. 
Explanation. Not detected. 

The DISPOSE procedure is called to dispose of a heap-allocated 
variable while a reference to the variable exists. 

Explanation. Not detected. Examples of such references are: 
passing the variable, or a component of it, to a formal VAR 
parameter, or using the variable in a WITH statement (if the 
variable is a record). 
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The value of file f changes while a reference to T exists. 

Explanation. Not detected. An example of a reference to F is 
the passing of F by reference to a routine; until the routine has 
ceased execution, you may not perform any operation on file f. 

The ordinal type of an actual parameter is not assignment compatible 
with the type of the corresponding formal parameter. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation of the called routine. 

The set type of an actual parameter is not assignment compatible with 
the type of the corresponding formal parameter. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation of the called routine. 

A file is not in Generation mode when a PUT, WRITE, WRITELN, or 
PAGE procedure is attempted. 

Explanation. Detected at run time. 

A file is in Undefined mode when a PUT, WRITE, WRITELN, or 
PAGE procedure is attempted. 

Explanation. Not detected. 

The result of an EOF function is not TRUE when a PUT, WRITE, 
WRITELN, or PAGE procedure is attempted. 

Explanation. Detected at run time. The operation is illegal only 
when the file is accessed sequentially. 

The value of the file buffer variable is undefined when a PUT proce¬ 
dure is attempted. 

Explanation. Not detected. 

A file is in Undefined mode when a RESET procedure is attempted. 
Explanation. Not detected. 

A file is not in Inspection mode when a GET, READ, or READLN 
procedure is attempted. 

Explanation. Detected at run time. 





A file is in Undefined nnode when a GET, READ, or READLN proce¬ 
dure is attempted. 

Explanation. Not detected. 

The result of an EOF function is TRUE when a GET, READ, or 
READLN procedure is attempted. 

Explanation. Detected at run time. 

The type of the file buffer variable is not assignment compatible 
with the type of the variable that is a parameter to a READ or 
READLN procedure. 

Explanation. Detected at run time. 

The type of the expression being written by a WRITE or WRITELN 
procedure is not assignment compatible with the type of the file 
buffer variable. 

Explanation. Detected at run time. 

The current variant does not exist in the list of variants specified with 
the NEW procedure. 

Explanation. Not detected. 

The DISPOSE(p) procedure is called to deallocate a pointer variable 
that was created using the variant form of the NEW procedure. 

Explanation. Not detected. 

The variant form of the DISPOSE procedure does not specify the 

disposal of the same number of variants that were created by the 
variant form of the NEW procedure. 

Explanation. Not detected. 

The variant form of the DISPOSE procedure does not specify the 
disposal of the same variants that were created by the variant 
form of the NEW procedure. 

Explanation. Not detected. 

The value of the parameter to the DISPOSE procedure is NIL. 
Explanation. Detected at run time. 
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The value of the parameter to the DISPOSE procedure is undefined. 
Explanation. Not detected. 

A variant record created by the NEW procedure is accessed as a 
whole, rather than one component at a time. 

Explanation. Not detected. 

In the PACK(a,i,z) procedure, the type of the index value i is not 
assignment compatible with the index type of a. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation. 

The PACK procedure is attempted when the value of at least one 
component of a is undefined. 

Explanation. Not detected. 

The index value i in the PACK procedure is greater than the upper 
bound of the index type of a. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation. 

In the UNPACK(z,i,a) procedure, the type of the index value i is not 
assignment compatible with the index type of a. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation. 

The UNPACK procedure is attempted when the value of at least one 
component of z is undefined. 

Explanation. Not detected. 

The index value i in the UNPACK procedure is greater than the upper 
bound of the index type of a. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation. 

The resulting value of SQR (X) does not exist. 

Explanation. Detected at run time for integers if overflow 
checking was enabled during compilation; always detected at run 
time for real numbers. 
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In the expression LN (X), the value of X is negative. 

Explanation. Detected at run time. 

In the expression SQRT (X), the value of X is negative. 

Explanation. Detected at run time. 

The resulting value of TRUNC (X) does not exist after the following 
calculations have been done: if the value of X is positive or zero, 
then 0 < = X-TRUNC (X) < 1; otherwise, -1 < X-TRUNC (X) 
< = 0 . 

Explanation. Detected at run time if overflow checking was 
enabled during compilation. 

The resulting value of ROUND (X) does not exist after the following 
calculations have been done: if the value of X is positive or zero, 

ROUND (X) is equivalent to TRUNC (X+0.5); otherwise, ROUND (X) 
is equivalent to TRUNC (X-0.5). 

Explanation. Detected at run time if overflow checking was 
enabled during compilation. 

The resulting value of CHR (X) does not exist. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation. 

The resulting value of SUCC (X) does not exist. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation. 

The resulting value of PRED (X) does not exist. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation. 

The function EOF (f) is called when the file f is undefined. 
Explanation. Not detected. 

The function EOLN (f) is called when the file f is undefined. 
Explanation. Not detected. 
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The function EOLN (f) is called when the result of EOF (f) is TRUE. 
Explanation. Not detected. 

A variable is not initialized before it is first used. 

Explanation. Not detected. 

In the expression X/Y, the value of Y is zero. 

Explanation. Detected at run time. 

In the expression I DIV J, the value of J is zero. 

Explanation. Detected at run time. 

In the expression I MOD J, the value of J is zero or negative. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation. 

An operation or function involving integers does not conform to the 
mathematical rules for integer arithmetic. 

Explanation. Detected at run time if overflow checking was 
enabled during compilation. 

A function result is undefined when the function returns control to the 
calling block. 

Explanation. Not detected. 

The ordinal type of an expression is not assignment compatible with 
the type of the variable or function identifier to which it is 
assigned. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation. 

The set type of an expression is not assignment compatible with the 
type of the variable or function identifier to which it is assigned. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation. 
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None of the case labels is equal in value to the case selector in a CASE 
statement. 

Explanation. Detected at run time if case-selectors checking was 
enabled during compilation. 

In a FOR statement, the type of the initial value is not assignment 
compatible with the type of the control variable, and the state¬ 
ment in the loop body is executed. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation. Assignment compatibility is not 
enforced if the statement in the loop body can never be executed. 

In a FOR statement, the type of the final value is not assignment com¬ 
patible with the type of the control variable and the statement in 
the loop body is executed. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation. Assignment compatibility is not 
enforced if the statement in the loop body can never be executed. 

When an integer is being read from a text file, the digits read do not 
constitute a valid integer value. (Initial spaces and end-of-line 
markers are skipped.) 

Explanation. Detected at run time. 

When an integer is being read from a text file, the type of the value 
read is not assignment compatible with the type of the variable. 

Explanation. Detected at run time if subrange checking was 
enabled during compilation. 

When reading a real number from a text file, the digits read do not 
constitute a valid real number. (Initial spaces and end-of-line 
markers are skipped.) 

Explanation. Detected at run time. 

The value of the file buffer variable is undefined when a READ or 
READLN procedure is performed. 

Explanation. Not detected. 
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A WRITE or WRITELN procedure specifies a field width in which the 
integers representing the total width and the number of fractional 
digits are less than 1. 

Explanation. Not detected. 

The bounds of an array passed to a conformant array parameter are 
outside the range specified by the conformant array's index type. 

Explanation. Detected at run time if bounds checking was 
enabled during compilation. 





Appendix G 

Program Examples 


This appendix contains four programs that perform the following tasks: 

• Program 1 adds, deletes, and updates records in an indexed file and 
produces a list of records sorted by customer number, last name, and 
zip code. 

• Program 2 reads hexadecimal input typed at the terminal and converts 
it to decimal. This program simulates the behavior of VAX Run-Time 
Library input procedures. 

• Program 3 writes a message in reverse video to the terminal screen, 
then prompts for and accepts information typed after the message. 

• Program 4 counts the number of occurrences of each word in a file and 
prints an alphabetized list of the words. 


G.1 Update Indexed File 

PROGRAM Update.File (OUTPUT, Addresses. Transactions, SortOut); 

TYPE 

Code = (A, D. C); 

String = VARYING [36] OF CHAR; 

(* Record of customer information *) 

Address Record = RECORD 

Customer.No : [KEY(O)] PACKED ARRAY [1..8] OF CHAR; 
Last^Name : [KEY(l)] PACKED ARRAY [1..25] OF CHAR; 
First_Name : String; 

Initial : CHAR; 

Address : String; 

City : String; 

State : PACKED ARRAY [1..2] OF CHAR; 

Zip : [KEY(2)] PACKED ARRAY [1..5] OF CHAR; 

END; 
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VAR 

(♦ Master file of customers ♦) 
Addresses : FILE OF Address.Record; 


(* Input file of transactions *) 
Transactions : TEXT; 

Tcode : Code; 

Customer, No : PACKED ARRAY [1..8] OF CHAR; 
Last. Name : PACKED ARRAY [1..26] OF CHAR; 
Initial : CHAR; 

First. Name, Address, City : String; 

State : PACKED ARRAY [1..2] OF CHAR; 

Zip : PACKED ARRAY [1..6] OF CHAR; 

Record Number : INTEGER := 1 ; 

(* Sorted output file *) 

SortOut : TEXT; 

I : INTEGER; 

PROCEDURE Ad<L Record / 

(Rec.Num : INTEGER); 


This procedure adds a record to the master file Addresses *) 


VAR 

Arec : Address. Record; 


BEGIN 

READLN (Transactions, Arec.Customer. No); 
FINDK (Addresses, 0, Arec.Customer,No); 
IF UFB (Addresses) 

THEN 

BEGIN 

WITH Arec DO 


BEGIN 

READLN (Transactions, Last. Name); 
READLN (Trjoisactions, First Name) 
READLN (Transactions, Initial); 
READLN (Transactions, Address); 
READLN (Transactions, City); 
READLN (Transactions, State); 
READLN (Transactions, Zip); 

WRITE (Addresses, Arec); 


END 


END 

ELSE 

BEGIN 

WRITELN ('File already contains record for ', Arec.Customer No); 
WRITELN ('New record ', Rec. Num;3, ' not added'); 

FOR I := 1 TO 7 DO 

READLN (Tramsactions); 

END; 

END; 
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PROCEDURE Delete.Record 
(Rec.Num : INTEGER); 

(* This procedure deletes a record from the master file Addresses *) 
BEGIN 

READLN (Tramsactions, Customer.No); 

FINDK (Addresses. 0, Customer.No); 

IF NOT UFB (Addresses) 

THEN 

DELETE (Addresses) 

ELSE 

BEGIN 

WRITELN ('File does not contain record for Customer.No); 
WRITELN ('Record number ', Rec.Num:3, ' not deleted'); 

END; 

END; 

PROCEDURE Change.Record 
(Rec.Num : INTEGER); 

(* This procedure updates a record in the master file Addresses 
with the new information provided in the Transactions file *) 

BEGIN 

READLN (Transactions, Customer.No); 

FINDK (Addresses, 0, Customer.No); 

IF NOT UFB (Addresses) 

THEN 

BEGIN 

READLN (Transactions, Addresses".Address); 

READLN (Transactions. Addresses".City); 

READLN (Transactions, Addresses".State); 

READLN (Transactions, Addresses".Zip); 

UPDATE (Addresses); 

END 

ELSE 

BEGIN 

WRITELN ('File does not contain record for ', Customer.No); 
WRITELN ('Record number ', Rec_Num:3, ' not changed'); 

FOR I := 1 TO 4 DO 

READLN (Transactions); 

END; 

END; 
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PROCEDURE Number.Sort; 


(* This procedure produces a list of customers sorted by number *) 
VAR 

Format.String : [STATIC] VARYING [10] OF CHAR ; 

BEGIN 

RESETK (Addresses, 0); 

OPEN (SortOut); 

REWRITE (SortOut): 

WRITELN (SortOut, 'Customer Number':17, 'Last Name':19, 

'Zip Code':28); 

WRITELN (SortOut); 

WRITELN (SortOut); 

WHILE NOT EOF (Addresses) DO 
BEGIN 

WRITELN (SortOut, Format. String:5, Addresses*.Customer. No, 
Format. String:10, Addresses*.Last.Name, Format. String:10, 
Addresses*.Zip); 

GET (Addresses); 

END; 

END; 

PROCEDURE Name.Sort; 

(♦ This procedure produces a list of customers 
sorted by last name ♦) 

VAR 

Format. String : [STATIC] VARYING [10] OF CHAR ; 

BEGIN 

RESETK (Addresses, 1); 

PAGE (SortOut); 

WRITELN (SortOut, 'Last Name':19, 'Customer Number':33, 

'Zip Code':13); 

WRITELN (SortOut); 

WRITELN (SortOut); 

WHILE NOT EOF (Addresses) DO 
BEGIN 

WRITELN (SortOut, Format.String:5, Addresses*.Last. Name, 

Formats String:10, Addresses*.Customer.No, Format String:10, 
Addresses*.Zip); 

GET (Addresses); 

END; 

END; 
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PROCEDURE Zip.Sort; 

(* This procedure produces a list of customers 
sorted by zip code *) 

VAR 

Format.String : [STATIC] VARYING [10] OF CHAR 
BEGIN 

RESETK (Addresses, 2); 

PAGE (SortOut); 

WRITELN (SortOut, 'Zip Code':12, 'Last Name22. 

•Customer Number':33); 

WRITELN (SortOut); 

WRITELN (SortOut); 

WHILE NOT EOF (Addresses) DO 
BEGIN 

WRITELN (SortOut, Format.String:5, Addresses".Zip, Format.String:10, 
Addresses".Last.N 2 une, Format .String:10, Addresses".Customer _No); 
GET (Addresses); 

END; 

CLOSE (SortOut); 

END; 

BEGIN 

OPEN (Addresses, 

HISTORY := UNKNOWN, 

ORGANIZATION := INDEXED, 

ACCESS.METHOD := KEYED); 

OPEN (Transactions, 

’DISK$WORK:[RECORDS]TRANS.DAT', 

HISTORY := OLD); 

RESETK (Addresses, 0); 

RESET (Transactions); 

WHILE NOT EOF (Trainsactions) DO 
BEGIN 

READLN (Treuisactions, Tcode) ; 

(* Determine whether record is to be added, deleted, or changed 
and call the appropriate procedure to process it *) 

CASE Tcode OF 

A : Add.Record (Record.Number); 

D : Delete.Record (Record.Number); 

C : Chauige.Record (Record.Number) ; 

END; 

Record.Number := Record.Number + 1; 

END; ~ 

(♦ Produce sorted output file *) 

Number.Sort; 

Name.Sort; 

Zip.Sort; 

CLOSE (Addresses); 

CLOSE (Transactions); 

END. 
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G.2 Hexadecimal Input 


PROGRAM Read_Hex (INPUT. OUTPUT); 


LABEL 


1 , 

2 . 

Flush; 


< Value successfully converted > 

{ End of white space } 

< Error, flush remainder of line > 


CONST 


Pi'ftmn't'. = ' RiThoT" » hoY mimhftT* • ' • 



Hex Digits * ['O'..'9'. 'A'..'F', 'a'..'f']; 

VAR 

Hex.Value : INTEGER; 

BEGIN 
WRITELN; 

WRITE (Prompt); 

WHILE TRUE DO 
BEGIN 

IF EOLN (INPUT) 

THEN 

{ No input on this line -- put out a new prompt } 
BEGIN 

WRITE (Prompt); 

READLN; 

END; 

WHILE NOT EOLN (INPUT) DO 

{ Skip leading white space > 

IF INPUT- IN Space.or.tab 


THEN 


GET(INPUT) 


ELSE 


GOTO 2; 
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2: 

IF NOT EOLN (INPUT) 

THEN 

•C Not a blank line so hex value should follow > 
BEGIN 

IF NOT (INPUT- IN Hex Digits) 

THEN 

< First character that was not space or tab 
was not hex either -- error )• 

BEGIN 

WRITELN ('Illegal hex value'); 

GOTO Flush; 

END 

ELSE 

{ At least one hex character > 

BEGIN 

Hex.Value := 0; 

REPEAT 

BEGIN 

IF NOT (INPUT- IN Hex Digits) 

THEN 

< Next character is not a hex digit -- 
conversion complete > 

GOTO 1 
ELSE 

{ Check for overflow, then include this 
digit in the accumulated value > 

BEGIN 

IF Hex .Value > V.X'OTFF FFFF' 

THEN 

{ Multiplying by 16 would cause value 
to become negative } 

BEGIN 

WRITELN ('Hex value too large'); 

GOTO Flush; 

END 
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ELSE 

BEGIN 

Hex.Value := Hex.Value ♦ 16; 

CASE INPUT^ OF 

•O'. •!'. '2'. '3', '4'. 

'5'. ’6'. 'T', 'S', '9': 

Hex.Value := Hex.Value - ORD CO'); 

•A' , 'B' , 'C , 'D' , 'E' , 'F' : 

Hex.Value := Hex.Value - ORD ('A') + 10; 
'a', 'b', 'c'. 'd', 'e', 

Hex.Value := Hex.Value - ORD ('a') 10; 

END; 

Hex.Value := Hex.Value + ORD (INPUT^); 

GET(INPUT); 

END; 

END; 

END; 

UNTIL EOLN (INPUT); 

{ End of line -- conversion complete } 

GOTO 1; 

END; 

END; 

Flush: 

{ Error previously reported -- flush remainder of line > 
WHILE NOT EOLN (INPUT) DO 
GET (INPUT); 

END; 


1 : 

WRITELN ('Value in decimal: Hex.Value); 

END. 


G.3 Screen Display 

PROGRAM Screen.Routines (INPUT, OUTPUT); 

(* This progrzun illustrates the use of the Run-Time *) 

(* Library screen package routines. ♦) 

TYPE 

Word_integer = [WORD] 0..65535; 

Form.line = VARYING [15] OF CHAR; 

Data_line = VARYING [30] OF CHAR; 

VAR 

Screen_8tat. Line. Column, Coxinter : INTEGEJl; 

Welcome_Msg : VARYING [50] OF CHAR; 

Form : ARRAY [1..3] OF Form.line; 

Userdata : ARRAY [1..3] OF Data.line; 

Reverse : Word_integer := 2; (* flags for LIB$PUT SCREEN ♦) 
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(4t4t4t«4c4t« Declare external RTL routines *♦*♦♦**) 


[EXTERNAL] FUNCTION LIB$ERASE PAGE 
(Line_no : Word integer; 

Col.no : Word.integer) 

: INTEGER; 

EXTERN; 

[EXTERNAL] FUNCTION LIB$PUT_SCREEN 
(Out_text : VARYING [C] OF CHAR; 

Line_no : Word integer; 

Col_no : Word integer; 

Flags : Word, integer := */,IMMED 0 
: INTEGER; 

EXTERN; 

[EXTERNAL] FUNCTION LIB$SET.CURSOR 
(Line.no : Word integer; 

Col.no : Word integer) 

: INTEGER; 

EXTERN; 

[EXTERNAL] FUNCTION Lim^ GET.SCREEN 

(VAR Input.text : VARYING [U] OF CHAR; 

Prompt, str : VARYING [V] OF CHAR := '/.IMMED 0; 

VAR Out.len : Word integer := */,IMMED 0) 

: INTEGER; 

EXTERN; 

[EXTERNAL] PROCEDURE LIBfSTOP 
(•/.IMMED Cond. value : INTEGER); 

EXTERN; 

Begin main program **♦**♦♦) 

BEGIN 

Welcome.Msg := 'WELCOME! Please input data as requested. '; 

Form[l] := 'Name; '; 

Form[2] 'Address: '; 

Form[3] := 'Phone: '; 

(♦ Clear the entire screen *) 

Screen stat := LIB$ERASE.PAGE (Line.no := 1, Col.no := l); 

IF NOT ODD (Screen stat) 

THEN 

LIB$STOP (Screen_stat); 

i* Write a welcome message to terminal in reverse video *) 

Line := 3; 

Column := 6; 

Screen.stat := LIB$PUT_SCREEN (Welcome_Msg, Line, Column, Reverse); 
IF NOT ODD (Screen_stat) 

THEN 

LIB$STOP (Screen_stat); 

(♦ Output prompts and collect data *) 

Line := 5; 

Column := 10; 
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FOR Counter :* 1 TO 3 DO 
BEGIN 

Screen stat := LIBi^SET.CURSOR (Line.no := Line+Counter, Col_no := Column); 
IF NOT ODD (Screen.stat) 

THEN 

LIB STOP (Screen_8tat); 

Screen-Stat := LIBIGET SCREEN (Userdata[Counter]. Form[Counter]); 

IF NOT ODD (Screen-Stat) 

THEN 

LIB STOP (Screen_stat); 

END; 

END. 


G.4 Countwords 


PROGRAM Countwords (INPUT. OUTPUT. F); 

CONST 

Word.Length = 20; 

TYPE 

String = PACKED ARRAY [1..Word Length] OF CHAR; 

Ref.Tree Node = "Tree Node; 

(* Record to define the tree *) 

Tree Node = RECORD 

Lower-Branch. Upper Branch : Ref Tree.Node; 
Count : INTEGER; 

Word : String; 

END; 


VAR 

Root : Ref.Tree.Node; 

New.Word : String; 

F : TEXT; 

(* This function allocates storage and assigns an address *) 
FUNCTION Create.Node : Ref.Tree Node; 

VAR 

New Node : Ref.Tree.Node; 

BEGIN 

NEW (New.Node); 

(♦ Initialize the variables ♦) 

WITH New Node" DO 
BEGIN 

Lower Branch := NIL; 

Upper Branch := NIL; 

Count :* 1; 

Word := New.Word; 

END; 

Create.Node := New.Node; 

END; 
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(* This procedure searches the tree until the word is located 
or until the new word is inserted in the tree. *) 

PROCEDURE Enter.Node; 

VAR 

Current : Ref_Tree_Node; 

BEGIN 

Current := Root; 

(* Initialize the pointer Create.Node to the root of the tree ♦) 

IF Current = NIL 

THEN 

Root := Create.Node 
ELSE 

REPEAT 

WITH Current“ DO 
IF Word * New.Word 
THEN 

(* If the new word exists in the tree, the 
variable Count is incremented by 1 and 
the pointer Current is set to NIL *) 

BEGIN 

Current := NIL; 

Count := Count 1 
END 
ELSE 

(* The lower branch of the tree is searched *) 

IF Word > New_Word 
THEN 

BEGIN 

Current := Lower.Branch; 

IF Current = NIL 
THEN 

Lower.Branch := Create_Node 

END 

ELSE 

(* The upper branch of the tree is searched ♦) 

BEGIN 

Current := Upper.Branch; 

IF Current = NIL 
THEN 

Upper.Branch := Create_Node; 

END 

UNTIL Current = NIL; 

END; 
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(* This procedure prompts for the input file name, opens 
the file, and performs a RESET *) 

PROCEDURE Initialize; 

VAR 

Filename : PACKED ARRAY [1..32] OF CHAR; 

BEGIN 

WRITE ('Enter the name of the file to be scanned: '); 
READLN (Filename); 

OPEN (FILE^VARIABLE := F, 

FILE_NAME := Filename. 

HISTORY := OLD); 

RESET (F); 

END; 

(* This procedure may call itself to print the tree in 
alphabetical order 

PROCEDURE Print.Node 

(Current : Ref.Tree.Node); 

BEGIN 

IF Current <> NIL 
THEN 

WITH Current- DO 
BEGIN 

Print.Node (Lower.Branch); 

WRITELN (Word. ' '. Count:6); 

Print.Node (Upper.Branch); 

END; 

END; 
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(* This procedure scans the file for nonalphabetics, makes 
lowercase letters out of uppercase letters, and enters 
the word into the tree by calling Enter_Node *) 

PROCEDURE Scan.File; 

VAR 

I : INTEGER; 

C : CHAR; 

BEGIN 
I := 0; 

C := • '; 

i* Check for nonalphabetics «) 

WHILE NOT EOF (F) DO 
BEGIN 

WHILE NOT EOF (F) AND NOT (C IN ['A'..'Z', 'a'..'z']) DO 
READ (F. C); 

WHILE NOT EOF (F) AND (C IN [•A'..'Z', 'a^-'z']) DO 
BEGIN 

(* Convert uppercase letters to lowercase *) 

IF C IN ['a'..'z'] 

THEN 

C := CHR (ORD (C) + ORD ('A') - ORD ('a')); 

I := I + 1; 

IF I <= Word_Length 
THEN 

New_Word[I] := C; 

READ (F, C); 

END; 

(* Enter the word into the tree via the procedure *) 

IF I > 0 
THEN 
BEGIN 

FOR I := I + 1 TO Word_Length DO 
New_Word[I] := * '; 

Enter.Node; 

I := 0; 

END; 

END; 

END; 

(♦ Main prograim ♦) 

BEGIN 

Initialize; 

Scan File; 

Print_Node (Root); 

END. 
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Appendix H 

Debug Command Summary 


ALLOCATE n-bytes 

Expands the debugger's memory pool. Can be used if you get a "no free storage" error 
message. 


ATTACH process-name 


Switches you to an already active or "spawned" process. (See SPAWN.) Same effect as 
ATTACH in DCL. 




addr-expr 


CALL routine 

(- 

%ADDR addr-expr 
y,DESCR lang-expr 




•/.REF lang-expr 




^ ‘/.VAL lang-expr 



Calls a routine and passes argument(s) if specified. 
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CANCEL ALL 


Cancels all breakpoints, tracepoints, and watchpoints, and restores the mode and scope to 
their original values. 


CANCEL BREAK 


/ALL 

/BRANCH 

/CALL 

/EXCEPTION 

/INSTRUCTION 

/LINE 

entry-name 

“/oLINE line-number 

nonsymbolic-addr 

symbolic-ref 


Cancels the specified breakpoint(s) or all breakpoints. 


CANCEL DISPLAY I r , I 

[ display-name[,...] J 

Cancels one or more, or all, displays. 


CANCEL EXCEPTION BREAK 

Cancels the effect of SET EXCEPTION BREAK and restores the debugger's default method 
for handling exceptions, letting the program's condition handlers receive control. Same 
effect as CANCEL BREAK/EXCEPTION. 
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CANCEL MODE 


Restores the radix and display modes to their defaults. Cancels SET MODE. 


CANCEL MODULE 


/ALL 

module[,...] 


} 


Deletes one or more, or all, modules from the debugger symbol table. 


CANCEL RADIX [/OVERRIDE] 

Sets the radix back to the default. Cancels SET RADIX. 


CANCEL SCOPE 

Resets the scope to its default, PC scoping. 


CANCEL SOURCE [/MODULE=module-name] 

Cancels the source directory search list established previously by SET SOURCE for the 
specified module or for all modules. 
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CANCEL TRACE 


/ALL 

/BRANCH 

/CALL 

/EXCEPTION 

/INSTRUCTION 

/LINE 

entry-name 

’/.LINE line-number 

nonsymbolic-addr 

symbolic-ref 






Cancels the specified tracepoint(s) or all tracepoints. 


CANCEL TYPE/OVERRIDE 

Restores the debugger's default interpretation of variables, which uses the variables' 
declared data types and extents. 


CANCEL WATCH 


/ALL 

{ nonsymbol i c ’ addr 
symbolic-ref 
variable-ref 




Cancels the specified watchpoint(s) or all watchpoints. 


CANCEL WINDOW | , I 

window-name [,...] j 

Removes one or more, or all, window definition(s), as specified by SET WINDOW or as 
predefined by the debugger. 
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CTRL/C 

CTRL/Y 


Interrupts program execution and returns control to the command interpreter. 


CTRL/W 


Refreshes the screen if you are in screen mode. Same effect as DISPLAY/REFRESH. 


CTRL/Z 


Terminates a debugging session. Same effect as EXIT. 


DECLARE name:kind[,... ] 


In a command procedure with parameters, binds the actual parameters to the formal 
parameters. 


DEFINE 


r/ADDRESS 
/COMMAND 
/LOCAL 
/VALUE 


symbol=parameter[,...] 


Sets up one or more abbreviations for an address, a value, and/or a DEBUG command. 
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DEFINE/KEY 


/[NO]ECHO 

/ [NO] IF_STATE=state-name 
/[NO]LOCK-STATE 
/[NO]LOG 
/ [NO] SET-STATE 
/[NO]TERMINATE 


[. . .] 


key-name "equiv-string" 


Sets up a keypad definition. Same effect as DEFINE/KEY in DCL. 


DELETE/KEY 


/ [NO] LOG 
/NOSTATE 

/STATE=(state-name[,...]) 


[...] 


I /ALL 
key-name 


Removes a keypad definition. Same effect as DELETE/KEY in DCL. 


DEPOSIT 


/ASCIC 

/ASCID 

/ASCII:length 

/ASCIW 

/ASCIZ 

/BYTE 

/DATE-TIME 

/D-FLOAT 

/FLOAT 

/G-FLOAT 

/H-FLOAT 

/INSTRUCTION 

/LONGWORD 

/OCTAWORD 

/PACKED:n 

/qUADWORD 

/WORD 


addr-expr=lang-expr 


Changes the contents of a specified variable or program location. Similar to an assignment 
statement. 
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DISPLAY display-name[AT window-name][kind][,...] 


Shows a display. 


DISPLAY/CLEAR display-name[AT window-name][kind][,...] 
Empties the contents of a display. 


DISPLAY/GENERATE [display-name[AT window-name][kind] [,...]] 
Regenerates the contents of a display. 


DISPLAY/HIDE display-name[AT window-name][kind][,...] 
Puts a display behind any other displays. 


DISPLAY/[NO]MARK.CHANGE display-name[AT window-name][kind][,...] 
Highlights changes in a DO display. 


DISPLAY/REFRESH [display-name[AT window-name][kind][,...]] 
Refreshes the screen contents. Same effect as CTRL/W. 
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DISPLAY/REMOVE display-name[AT window-name][kind][,...] 
Removes display(s) from the screen. 


DISPLAY/SIZE:n display-name[AT window-name][kind][,...] 


Changes a display's maximum size. 


EDIT [/[NO]EXIT] [[module-name\]line-number] 


Puts you into the VAX Language-Sensitive Editor, centered at the source line where your 
source window is centered. (EDIT works only if you have this editor on your system.) 


EVALUATE 


/BINARY 

/CONDITION.VALUE 

/DECIMAL 

/HEXADECIMAL 

/OCTAL 


lang-expr[,...] 


Evaluates an expression and displays the results according to the current or specified radix 
settings. 


EVALUATE/ADDRESS 


r/BINARY 
/DECIMAL 
/HEXADECIMAL 
/OCTAL 


addr-expr[,...] 


Evaluates a symbolic reference or address expression and either displays its virtual address 
in the current or specified radix or, for a variable assigned to a register, in the register. 
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EXAMINE 


/ASCIC 

/ASCID 

/ASCII:length 

/ASCIW 

/ASCIZ 

/BINARY 

/BYTE 

/CONDITION.VALUE 

/DATE.TIME 

/DECIMAL 

/DEFAULT 

/D.FLOAT 

/FLOAT 

/G.FLOAT 

/H.FLOAT 

/HEXADECIMAL 

/INSTRUCTION 

/LONGWORD 

/ [NO]SYMBOL 

/OCTAL 

/OCTAWORD 

/PACKED:n 

/PSL 

/PSW 

/QUADWORD 

/SOURCE 

/WORD 


[addr-expr[:addr-expr]][,...] 


Displays the current contents of one or more variables or program locations. 


EXIT 

Ends the debugging session or the execution of commands in a command procedure or 
DO command sequence. 
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EXITLOOP [n-level] 


Brings the program out of a loop. 


Ofile-spec [PI [,P2[,...,Pn]]] 

Reads debugger commands from the specified command procedure file, and passes any 
needed parameter(s) to that file. 


FOR name=exprl TO expr2[BY expr3]D0(coininand[; . . .]) 

Sets up a loop for iterating one or more debugging commands. 


GO 


entry-name 
y,LINE line-number 
nonsymbolic-addr 
symbolic-ref 


Starts or continues program execution. 


HELP [topic...] 

Displays a description of a debugger command, parameter, or qualifier. 


IF Booleain-expr THEN (command [; . . .]) [ELSE(command [; . . .])] 
Provides for conditional execution of one or more debugging commands. 
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REPEAT lang-expr DO(command[;...]) 

Provides for a specified number of iterations of one or more debugging commands. 


SAVE old-display AS new-display[....] 

Saves the contents of an existing screen display in a new screen display. 


SCROLL 


/BOTTOM 

/D0WN[:n] 

/LEFT[:n] 

/RIGHT[:n] 

/TOP 

/UP[:n] 


[display-name] 


Scrolls a window display in a specified direction. 


SEARCH 


r /ALL 
/NEXT 

/IDENTIFIER 

/STRING 


[...][range]string 


Searches a program region for one or all occurrences of a string. 


SELECT 


/OUTPUT 

/SCROLL 

/SOURCE 


[...][display-name] 


Causes a screen display to be selected as the current output, scrolling, or source display. 
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SET BREAK 


/AFTER:n 
/INTO 

/[NO]SILENT 
/[NO]SOURCE 
/[NO]SYSTEM 
/OVER 
/TEMPORARY 


[...]addr-exp[,...][WHEN(lang-exp)][DO(cmd[;...])] 


Sets a breakpoint at a specified location in the program. 


SET BREAK/BRANCH 


/AFTER:n 
/INTO 

/[NO]SILENT 
/ [NO]SOURCE 
/ [NO]SYSTEM 
/OVER 

/TEMPORARY 


[...][WHEN(lang-Gxp)][DO(command[;...])] 


Sets a breakpoint that takes effect on every branch instruction. 


SET BREAK/CALL 


/AFTER:n 
/INTO 

/ [NO]SILENT 
/[NO]SOURCE 
/ [NO]SYSTEM 
/OVER 

/TEMPORARY 


[...][WHEN(lang-exp)][DO(command[;...])] 


Sets a breakpoint that takes effect on every call. 
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SET BREAK/EXCEPTION 


/AFTER:n 
/INTO 

/[NO]SILENT 
/[NO]SOURCE 
/[NO]SYSTEM 
/OVER 

/TEMPORARY 


[...][WHEN(lang-exp)][DO(command[;...])] 


Sets a breakpoint that takes effect on every exception. 


SET BREAK/INSTRUCTION[-op-cod«[....]] 


/AFTER:n 
/INTO 

/[NO]SILENT 
/[NO]SOURCE 
/[NO]SYSTEM 
/OVER 

/TEMPORARY 


[...][WHENClang-exp)][DO(cmd[;...])] 


Sets a breakpoint that takes effect on every assembly language instruction, or on the 
instruction(s) with the specified op-code(s). If more than one op-code is listed, the list 
must be in parentheses. 


SET BREAK/LINE 


/AFTER:n 
/INTO 

/[NO]SILENT 
/[NO]SOURCE 
/[NO]SYSTEM 
/OVER 

/TEMPORARY 


[...][WHEN(lang-exp)][DO(command[;...])] 


Sets a breakpoint that takes effect on every line. 
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SET BREAK/NODIFY 


/AFTER:n 
/INTO 

/[NO]SILENT 
/[NO]SOURCE 
/[NO]SYSTEM 
/OVER 

/TEMPORARY 


[...]addr-expr[,...][WHEN(lang-exp)][DO(command[;...])] 


Sets a watchpoint. Same effect as SET WATCH. 


SET BREAK/RETURN 


/AFTER:n 
/INTO 

/[NO]SILENT 
/[NO]SOURCE 
/[NO]SYSTEM 
/OVER 

/TEMPORARY 


[...][WHEN(Iang-exp)][DO(command[;...])] 


Sets a breakpoint on every return instruction. 


SET DISPLAY 


/MARK.CHANGE 

/REMOVE 

/SIZE:n 


[display-name[AT window][kind][,...]] 


Establishes a display to be shown on the terminal screen. 


SET EXCEPTION BREAK 


Causes the debugger to treat external exception conditions as if they were breakpoints 
and to interrupt the program when an exception occurs, rather than allowing condition 
handlers to be executed. 
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SET LANGUAGE lang-name 


Loads the parse tables for the specified language, enabling the debugger to accept expres¬ 
sions in the language's syntax. 


SET LOG [file-spec] 

Specifies the name of a log file to which debugger output will be written when the SET 
OUTPUT LOG command is issued. 



right margin 
:right-margin 


left-margin:right-margin 


left-margin: 


Specifies margin(s) to be used by the debugger in displaying source code. 


SET MAX.SOURCE.FILES n-files 


Specifies the maximum number of source files to be kept open at one time. 
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SET MODE 


BINARY 
DECIMAL 
HEXADECIMAL 
[NO]G-FLOAT 
[NO]KEYPAD 
[NO]SCREEN 
[NO]SYMBOL 
OCTAL 


[....] 


Sets the mode for displaying debugger output and/or accepting input, as applicable. 


SET MODULE [/ALLOCATE] I i \ 

[ module-name[,...] J 

Adds the symbols from the indicated module(s) to the debugger symbol table. 


SET OUTPUT 


[NO]LOG 

[NO]SCREEN.LOG 
[NO]TERMINAL 
[NO]VERIFY 


[....] 


Controls whether the debugger writes output to a log file or to the terminal, as well as 
whether it echoes commands executed from command procedures. 


SET RADIX 




^ BINARY 

IT /INPUT 


DECIMAL 

/OUTPUT 

[...]< 

DEFAULT 

/OVERRIDE 


HEXADECIMAL 

LL 


^ OCTAL 


Specifies the radix of numbers for input and/or output. 
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SET SCOPE I/MODULEI] 


scope-number 

pathname 




Specifies the program scope(s) in which the debugger is to search for a symbol. 



Specifies the search parameters to be used in subsequent SEARCH commands. 



directory-spec 
filespec 


name]] 


SET SOURCE II/MODULE=module-; 


Specifies where the debugger is to search for source files for the specified module or for all 
modules. 


^ BRANCH 
CALL 

EXCEPTION 

INSTRUCTION=[opcode] 
INTO 




SET STEP LINE 


[NO]SILENT 
[NO]SOURCE 
[NO]SYSTEM 
OVER 
^ RETURN 


Specifies the effect of the STEP command. 
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SET TERMINAL/WIOTH:n 


Sets the terminal width used for formatting output from the debugger (but does not 
change the terminal width itself). 


SET TRACE 


/AFTER:n 

/INTO 

/[NO]SILENT 
/[NO]SOURCE 
/[NO]SYSTEM 
/OVER 
/TEMPORARY 


[...][WHEN(lang-exp)](addr-exp)[,...][DO(cmd[:...])] 


Sets tracepoint(s) on the given address(es). 


SET TRACE/BRANCH 


/AFTER:n 
/INTO 

/[NO]SILENT 
/[NO]SOURCE 
/[NO]SYSTEM 
/OVER 

/TEMPORARY 


[...][WHEN(lang-exp)][DO(command[;...])] 


Sets a tracepoint that takes effect on every branch instruction. 
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SET TRACE/CALL 


/AFTER:n 
/INTO 

/[NO]SILENT 
/[NO]SOURCE 
/[NO]SYSTEM 
/OVER 

/TEMPORARY 


[...][WHEN(lang-exp)][DOCcommand[;...])] 


Sets a tracepoint that takes effect on every call. 


SET TRACE/EXCEPTION 


/AFTER:n 
/INTO 

/[NO]SILENT 
/[NO]SOURCE 
/[NO]SYSTEM 
/OVER 

/TEMPORARY 


[...][WHEN(lang-exp)][DO(command[;...])] 


Sets a tracepoint that takes effect on every exception. 


SET TRACE/INSTRUCTION[-op-code][_] 


/AFTER:n 
/INTO 

/[NO]SILENT 
/[NO]SOURCE 
/ [NO] SYSTEM 
/OVER 

/TEMPORARY 


[. ..] [VKHEN(lang-exp)] [DO(cmd[: ...])] 


Sets a tracepoint that takes effect on every assembly language instruction, or on the 
instruction(s) with the specified op-code(s). If more than one op-code is listed, the list 
must be in parentheses. 
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SET TRACE/LINE 


/AFTER:n 
/INTO 

/[NO]SILENT 
/ [NO]SOURCE 
/ [NO]SYSTEM 
/OVER 
/TEMPORARY 


[...][WHEN(lang-exp)][DO(command[;...])] 


Sets a tracepoint that takes effect on every line. 


SET TRACE/MODIFY 


/AFTER:n 
/INTO 

/[NO]SILENT 
/[NO]SOURCE 
/[NO]SYSTEM 
/OVER 

/TEMPORARY 


[.. .Jaddr-exprt_] [VKHEN(lang-exp)] [DO(ciiid[;...])] 


Sets one or more watchpoints on the given address(es), and continues execution after 
modification of the watched variable(s). 


SET TRACE/RETURN 


/AFTER:n 
/INTO 

/[NO]SILENT 
/[NO]SOURCE 
/ [NO]SYSTEM 
/OVER 
/TEMPORARY 


[...]addr-expr[WHEN(lang-exp)][DO(cmd[;...])] 


Sets a tracepoint on the return from the specified routine. 
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ASCIC 

ASCID 


SET TYPE I/OVERRIDEI] ^ 


ASCII:length 
ASCIW 
ASCIZ 
BYTE 

DATE.TIME 
D.FLOAT 
FLOAT 
G_FLOAT 
H_FLOAT 
INSTRUCTION 
LONGWORD 
OCTAWORD 




PACKED:n 


QUADWORD 
^ WORD 


Sets the default data type for the DEPOSIT and EXAMINE commands for locations that 
do not have declared data types or, if /OVERRIDE is used, for all locations. 


SET WATCH 


■/AFTER:n 
/[NO]SILENT 
/[NO]SOURCE 
/ TEMPORARY 


[...]addr“exp[....][WHEN(lang-exp)][D0(cmd[,...])] 


Establishes a watchpoint on one or more static variables. 


SET WINDOW name AT (start-line,line~count) 


Establishes a screen window definition. 
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SHOW BREAK 


Displays the current breakpoints. 


SHOW CALLS [n-calls] 

Displays the current program location and all, or a specified number of, preceding calls. 


SHOW DISPLAY 

Displays a list of all specified screen displays, with the size, window, kind, and debug- 
command list of each. 


SHOW KEY 


/BRIEF 

/DIRECTORY 

[NO]STATE=(state-name[,...]) 


[...] 


/ALL 1 
key-name J 


Displays current definition(s) of one or all keys. 


SHOW LANGUAGE 

Displays the current debugging language. 


SHOW LOG 

Displays the current status of the log file, if one exists. 
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SHOW MARGIN 


Displays the current left and right margin settings for the display of source code. 


SHOW MAX.SOURCE_FILES 

Displays the maximum number of source files that can be kept open at any one time. 


SHOW MODE 

Displays the current mode for displaying variables and addresses. 


SHOW MODULE [module-name] 

Lists the modules in the image being debugged and shows which modules have names in 
the debugger symbol table. 


SHOW OUTPUT 

Displays the current status of the debugger's output files. 


SHOW SCOPE 

Displays the current scope search list. 
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SHOW SEARCH 


Displays the current search parameters. 


SHOW SELECT 

Tells you the current display selections for screen mode. (Irrelevant in line mode.) 


SHOW SOURCE 

Displays the current directory search list for source files. 


SHOW STEP 

Displays the current default step conditions. 


SHOW SYMBOL 


/ADDRESS 

/DEFINED 

/DIRECT 

/GLOBAL 

/LOCAL 

/TYPE 


[...]symbol-name[,...][IN scope[,...]] 


Displays information from the debugger's run-time symbol table. 
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SHOW TERMINAL 


Displays the current terminal width used for formatting debugger output. 


SHOW TRACE 

Displays current tracepoints. 


SHOW TYPE [[/OVERRIDE]] 

Displays the current default data type or override type. 


SHOW WATCH 

Displays the current watchpoints and the number of bytes being watched. 


SHOW WINDOW 

Displays all screen window definitions, giving the name and screen position of each. 


SPAWN I/NOWAITI] [dcl-command] 

Spawns a subprocess, either to continue in parallel with the parent process (same effect as 
SPAWN/NOWAIT in DCL), or to suspend the parent process and attach the terminal to 
the subprocess. 
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STEP 


/BRANCH 

/CALL 

/EXCEPTION 

/INSTRUCTION[=opcode] 

/INTO 

/LINE 

/[NO]SILENT 
/[NO]SOURCE 
/[NO]SYSTEM 
/OVER 
/RETURN 


[. .. ] [n-units] 


Executes one or more lines or instructions, stepping into or over subroutines at your 
request. 


SYMBOLIZE addr-expr[,...] 


Converts a virtual address to a symbolic representation. 


TYPE [[module\]line[:line]][,...] 


Displays the next line or the specified line(s) of source code in the current module or in 
the specified module. 


UKDETIHE j)} 

Undefines symbol(s) previously defined with the debugging command DEFINE. 
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UNDEFINE/KEY 


/ [NO] LOG 
/NOSTATE 

/ STATE= [state-naane [, 


.]] 


[. . .] 


f /ALL 
I key-name 


Removes a keypad definition. Same effect as DELETE/KEY. 


VfHILE Boolean-expr DO(command[;...]) 

Provides a loop for iterating debugging commands as long as the WHILE clause is true. 
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Assignment compatibility (cont'd.) 
affected by READONLY* 14-24 
affected by UNSAFE* 14-31 
Assignment operator *9-3 
Assignment statement * 9-2 
ASYNCHRONOUS attribute* 14-9 
AT attribute* 14-7 
Attribute 

See individual attributes by name 
Attribute class* 14-1 
Attribute classes 
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ASYNCHRONOUS* 14-9 
ATTRIBUTE* 14-33 
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default for* 14-3 
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INITIALIZE* 14-16 
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Base type 

of set * 6-30 
of subrange * 6-8 
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BIN function * 11-9 
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Binary notation * 6-4 
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Blocks* 13-3 to 13-6 
of function * 10-20 
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Builtins 

See Predeclared routines 
BYTE attribute* 14-26 
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Calls 

to functions* 10-29 to 10-38 
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to procedures* 10-29 to 10-38 
CANCEL BREAK command • 4-25 
CANCEL DISPLAY command • 4-20 
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CANCEL TRACE command *4-27 
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examples of *9-5 
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See Common Data Dictionary 
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reading from text file* 12-26 
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ASCII* A-1 

nonprinting, in string *6-26 
Character mode, EDT * 2-9 
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/CHECK qualifier *3-7 
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%DICTIONARY* 15-7 
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record paths* 15-7 
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machine code listing *3-28 
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for varying-length string *6-29 
CONTINUE command 
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to hexadecimal value* 11-11 

to integer* 11-34 

to integer by rounding* 11-36 

to integer by truncation* 11-37 

to octal value * 11-13 

to quadruple-precision* 11-36 

to single-precision* 11-37 
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ordinal • 6-1, 6-3 
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module • 4-42 
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qualifier options • 4-3 

restart program with • 4-22 

resume with DEBUG command • 4-22 

screen mode • 4-14 

creation of screens • 4-18 
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Debugger 

screen mode (cont'd.) 
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invokation of *4-15 
manipulating screens *4-17 
removing displays • 4-20 
scrolling *4-17 

setting breakpoints with *4-25 
setting tracepoints with *4-27 
setting watchpoints with *4-29 
restrictions on • 4-30 
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CONST *8-3 
FUNCTION* 10-5 
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TYPE *8-4 
VALUE *8-8 
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overview of *5-3 
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variable * 8-5 
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overview of *5-3 
pointer type * 8-4 
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type * 8-4 
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Deleting files* 1-19 
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DEPOSIT command *4-31 
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on automatic variable * 4-38 
qualifiers for *4-37 
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syntax of* 15-7 

Digital Command Language* 1-1 to 1-22 
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Direct access* 12-6 
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Directive 
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Directives 
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Directives (cont'd.) 

FORWARD* 10-26 
Directories • 1 -9 
creating • 1 -9 
default • 1 -9 
hierarchy of* 1-10 
listing files in* 1-16 
showing default * 1 -9 
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example of * 11-21 
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Editing files *2-1 
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identification checking * 3-46 
inheritance of* 13-10 
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default radix *4-34 
default type *4-34 
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change radix of *4-37 
on automatic variable * 4-38 
qualifiers for *4-37 

specifying current location with *4-45 
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Expressions* 7-1 to 7-15 
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Extensions *E-1 

See also VAX PASCAL 
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summary of*D-1 
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External 

symbol * 4-45 
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EXTERNAL directive* 10-26 
External file 
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distinguished from RMS record* 12-1 
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external * 6-33 

handling of* 1-5 to 1-22 
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8-Index 







Files (cont'd.) 

operations on* 1-16 
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output from compiler * 3-18 
preparing for input * 12-23 
printing * 1-17 
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record length of* 12-14 
record type of* 12-15 
relative organization of * 12-4 
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sharing* 12-17 
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VAX/VMS specifications of* 1-6 
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FIND_MEMBER function* 11-29 
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variable * 10-13 
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FORWARD directive* 10-26 
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I/O processing* 12-1 to 12-64 
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See individual functions by name 
result of* 10-20 
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side effects * 7-14 
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GO command *4-21 
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overview of* 10-2 
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from debugger *4-7 
from the debugger *4-21 
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Implementation features * E-1 
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of multidimensional array *6-22 
INDEX function* 11-12 
Indexed organization * 12-4 
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Inline Summary 
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Input procedures (cont'd.) 

for sequential access • 12-22 to 12-30 
Inspection mode • 12-8 
Instruction mode 

in debugging • 4-23 
INT function • 11 -34 
Integer overflow 

compile-time checking of *3-7 
INTEGER type *6-4 

default field width of* 12-50 
reading from text file* 12-27 
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radix notation for *6-4 
unsigned * 6-5 
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See Attributes 
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summary of * D-1 
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example of * 11-13 
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/LIBRARY qualifier 

with LINK command *3-45 
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See also EOT 
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Line number 

specifying to debugger * 4-47 
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qualifiers on * 3-39 
syntax of *3-38 

Linker, VAX/VMS * 3-38 to 3-46 
functions of *3-38 
invoking * 3-38 
qualifiers * 3-39 
/BRIEF qualifier *3-43 
/CROSS-REFERENCE qualifier * 3-43 
/DEBUG qualifier • 3-44 
/EXECUTABLE qualifier * 3-42 
/FULL qualifier *3-43 
/INCLUDE qualifier * 3-44 
/LIBRARY qualifier *3-45 
/MAP qualifier * 3-43 
/OPTIONS qualifier *3-45 
/SHAREABLE qualifier * 3-42 
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/LIST qualifier *3-11 
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Inline summary *3-34 
Listing file *3-11 

specification of *3-18 
LN function *11-5 
LOCAL attribute* 14-34 
Local symbol *4-41 
LOCATE procedure* 12-57 
Logarithm * 11-5 
Logical names * 1 -12 
tables of * 1-13 
Logical operator *7-8 
LONG attribute * 14-26 
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Map file *3-43 
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on LINK command *3-43 
MAX function * 11-6 
MAXINT*6-4 
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on actual parameter* 10-38 
on formal parameter* 10-13 
MIN function * 11-6 
Mixed-language programming* 10-27 
MOD operator *7-5 
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Module* 13-1 

access symbols from * 4-42 
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in debugger * 4-42 
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constructor for * 6-24 
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Name 

adding to symbol table *4-42 
display In symbol table *4-43 
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NEW procedure* 11-24 
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NEXT routine* 11-3 
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Notation 
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specification of *3-18 
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OCT function * 11-13 
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string * 7-9 
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effect on debugging * 4-4 
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with LINK command *3-45 
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Ordinal function* 11-30 
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reading from text file* 12-27 
Packing structured type *6-12 
PAD function * 11-14 
examples of * 11-14 
PAGE procedure * 12-44 
Parameter routines* 11-30 
Parameters 

actual value* 10-33 
actual variable* 10-34 
alignment of* 14-6 

association of formal and actual* 10-30 
congruence of* 10-35 
default for* 10-19, 10-32 
effect of attributes on* 10-10 
effect of UNSAFE attribute on* 10-10 
foreign mechanism * 10-13, 10-38 
formal * 10-8 
function * 10-12, 10-35 
procedure * 10-12, 10-35 
routine* 10-12, 10-35 
routines as* 10-8 
value * 10-9 
variable * 10-10 
PASCAL command *3-1 
qualifiers for * 3-2 
syntax of *3-1 
PASCAL language 
See VAX PASCAL 
Pathname *4-50 

as scope of reference * 4-49 
for recursive routine *4-51 
Invocation number in *4-51 
PC scope *4-50 
Permanent symbol 
In debugger * 4-40 
Pointer type *6-1, 6-33 
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Pointer type (cont'd.) 

affected by READONLY® 14-25 
affected by UNSAFE® 14-31 
affected by VOLATILE® 14-37 
affected by WRITEONLY® 14-39 
alignment of® 14-6 
allocation size of® 14-26 
checking® 14-11 
debugging ® 4-39 
definition of®8-4 
Pointer variable® 11-21, 11-24 
evaluation of®4-34 
Pointers 

compile-time checking of®3-7 
POS attribute® 14-23 

effect on compatibility ® 14-24 
Positional syntax® 10-31 
Precedence 

of PASCAL operators ® 4-34, 7-13 
PRED function ® 6-3, 11 -30 
Predecessor ® 11 -30 

Predeclared functions® 11-1 to 11-43, C-1 
See individual functions by name 
allocation size ® 11 -2 
arithmetic ® 11 -4 
character-string ® 11 -9 
dynamic allocation ® 11 -20 
I/O processing® 12-1 to 12-64 
interlocked® 11-26 
ordinal ® 11-30 
summary of ® 11 -4 
transfer ® 11 -33 to 11 -39 
unsigned ® 11-7 
Predeclared identifiers ® 5-12 
overview of ® 5-12 

Predeclared procedures ® 11 -1 to 11-43, 
C-1 

See individual procedures by name 
character-string ® 11 -9 
dynamic allocation® 11-24 
I/O processing® 12-1 to 12-64 
summary of® 11-4 
transfer® 11-35 

Predeclared routines® 11-1 to 11-43, C-1 
See individual routines by name 
dynamic allocation® 11-20 to 11-26 
I/O processing ® 12-1 to 12-64 


Predeclared routines (cont'd.) 

summary of ® 11-4 
PRESENT function® 11-32 
Previous location ® 4-45 
Primary key® 12-4, 14-17 
Procedure calls®9-16, 10-29 
examples of®9-17 
used with function® 10-31 
Procedures® 10-1 to 10-38, C-1 
actual parameters® 10-36 
body of® 10-2 
call to® 10-29 
calling® 9-16 
character-string ® 11 -9 
declaration of® 10-3 
dynamic allocation® 11-24 
executing with debugger ® 4-24 
external® 10-28 
formal parameters® 10-12 
forward declaration of® 10-27 
heading of ® 10-3 
I/O processing® 12-1 to 12-64 
input and output ® 12-6 
invoking® 10-5 
overview of ® 10-2 
predeclared ® 11 -1 

See individual procedures by name 
setting breakpoint on®4-26 
specifying to debugger ® 4-47 
transfer® 11-35 
Process logical names® 1-13 
Processor status longword 
debugger symbol for®4-40 
Program counter 

debugger symbol for®4-40 
Program section 
allocation in® 14-7 
Program structure 
overview of ® 5-5 
Programs® 13-1 
block® 13-2 

creating, compiling, and running® 1-3 
heading® 13-2 
locations in 

debugger access ® 4-40 
program development® 1-2 
specifying to debugger®4-47 
Prompting on text files® 12-55 
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PSECT attribute • 14-7 
PUT procedure • 12-32 
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QUAD attribute* 14-26 
QUAD function* 11-36 
QUADRUPLE type * 6-9 
allocation size of* 14-26 
default field width of* 12-50 
Quadruple-precision real numbers *6-9 
Qualifiers 

of file inclusion * 3-44 
on LINK command *3-39 
on PASCAL command *3-2 
/BRIEF *3-43 
/CHECK * 3-7 

/CROSS_REFERENCE * 3-9, 3-43 

/DEBUG *3-9, 3-44, 3-46 

/DIAGNOSTICS *3-10 

/ENVIRONMENT *3-10 

/ERROR_LIMIT*3-11 

/EXECUTABLE * 3-42 

/FULL *3-43 

/G_FLOATING*3-11 

/INCLUDE * 3-44 

/LIBRARY * 3-45 

/LIST *3-11 

/MACHINE-CODE *3-12 
/MAP *3-43 
/OBJECT *3-12 
/OLD_VERSION*3-12 
/OPTIMIZE *3-13 
/OPTIONS *3-45 
/SHAREABLE * 3-42 
/SHOW qualifier *3-14 
/STANDARD *3-15 
/TRACEBACK*3-44 
/WARNINGS *3-15 
syntax of *3-6 
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READ procedure* 12-25 
READLN procedure* 12-45 
calling STATUS after* 12-64 
READONLY attribute* 14-24 


READONLY attribute (cont'd.) 

on formal parameter* 10-35 
READV procedure* 11-15 
Real numbers 

double-precision * 6-9 
negative* 6-12 
quadruple-precision * 6-9 
single-precision * 6-9 
REAL type * 6-9 

allocation size of* 14-26 
default field width of * 12-50 
Real types*6-1, 6-9 

default field width of* 12-50 
reading from text file* 12-27 
RECORD type *6-13 to 6-20 
constructor for *6-14 
constructor with variant for *6-19 
dynamic variables with variants* 11-24 
examples of *6-15 
field of *6-13 
nested* 6-14 

OTHERWISE clause In *6-17 
position of fields in* 14-23 
use of WITH statement with *9-13 
variant clause In *6-16 
Record-length parameter 
in OPEN procedure* 12-14 
Record-type parameter 

in OPEN procedure* 12-15 
Records 

fixed-length* 12-2 
In RMS* 12-1 

specifying to debugger*4-44 
variable-length* 12-3 
Redeclaration rule* 13-14 
exceptions to* 13-15 
%REF foreign mechanism 
on actual parameter* 10-38 
%REF mechanism specifier 
on formal parameter* 10-13 
Reference 

to variable * 8-6 
Reference mechanism* 10-14 
Register 

debugger symbol for *4-40 
specifying to debugger * 4-48 
Relational operator *7-7 

with variable-length strings *7-10 
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Relative organization* 12-4 
REM operator *7-5 
RENAME_FILE procedure* 11-42 
Repeat counts in EDT*2-15 
REPEAT statement *9-11 
examples of * 9-11 
Repetition factor *6-21 
Repetitive statements * 9-8 to 9-13 
FOR *9-9 
REPEAT *9-11 
WHILE *9-12 
Reserved words *5-10 
RESET procedure* 12-29 
RESETK procedure* 12-62 
REVERT procedure* 11-42 
REWRITE procedure* 12-33 
ROUND function* 11-36 
Round to Integer* 11-36 
Routines* 10-1 to 10-38, C-1 
activation of* 10-29 
actual parameters* 10-36 
body of* 10-2 
declaration of* 10-3 
executing with debugger * 4-24 
external * 10-28 
formal parameters* 10-12 
forward declaration of* 10-27 
heading of* 10-3 
I/O processing * 12-1 to 12-64 
overview of* 5-3, 10-2 
predeclared * 11-1 

See individual routines by name 
setting breakpoint on *4-26 
specifying to debugger * 4-47 
RUN command* 1-3 
syntax of *3-46 
Run-time expressions * 7-1 
in set constructor * 7-11 
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Sample programs 

in VAX PASCAL*G-1 
Scalar type* 6-1 
Schemas 

conformant* 10-15 
Scope *4-48, 13-3 to 13-6 


Scope (cont'd.) 
canceling * 4-52 
changing * 4-51 
debugger listing *4-52 
default * 4-48 
displaying * 4-52 
example of* 13-4 
examples of* 10-22 
of automatic variable * 4-53 
of identifiers* 10-3, 13-4 
of names *4-50 
of static variable*4-53 
specifying to debugger * 4-48 
Screen mode, debugger * 4-14 
See Debugger 
SCROLL command *4-18 
Scrolling * 1-17 

debugger screen mode *4-17 
SEARCH command *4-14 
Searching a directory 
for a string * 1-18 
SELECT command 

/SCROLL qualifier *4-18 
Semantics 

value* 10-9, 10-34 
variable * 10-10, 10-35 
Sequential access* 12-5 

input procedures for* 12-22 to 12-30 
output procedures for* 12-30 to 12-36 
Sequential organization* 12-4 
SET 

compile-time checking of *3-7 
SET BREAK command *4-25 
/AFTER qualifier *4-26 
SET DISPLAY command *4-18 
SET LOG command *4-12 
SET MODE command *4-37 
DECIMAL radix *4-38 
HEXADECIMAL radix *4-38 
OCTAL radix * 4-38 
SET MODE SCREEN command *4-13 
SET MODULE command *4-42 
implied by SET SCOPE *4-52 
Set operators * 7-10 
SET OUTPUT command *4-11 
SET SCOPE command *4-51 
SET STEP command *4-23 
SET STEP INSTRUCTION command *4-23 


16-Index 








SET TRACE command •4-27 
/BRANCH qualifier *4-28 
/CALL qualifier*4-28 
SET type • 6-30 

bounds checking* 14-11 
cardinality of* 11-39 
constructor for* 7-11 
examples of *6-30 
operators * 7-10 
SET TYPE command *4-37 
SET TYPE/OVERRIDE command *4-37 
SET WATCH command * 4-29 
SET_INTERLOCKED function* 11-29 
Shareable image *3-42 
/SHAREABLE qualifier 

on LINK command *3-42 
Sharing data* 15-1 to A-10 
Sharing declarations* 13-6 to 13-16 
Sharing parameter 

in OPEN procedure* 12-17 
SHOW BREAK command *4-25 
SHOW CALLS command *4-31 
SHOW module command *4-43 
/SHOW qualifier *3-14 
SHOW SCOPE command * 4-52 
SHOW TRACE command *4-27 
SHOW WATCH command * 4-29 
SHOW WINDOW command *4-16 
Side effects* 7-14 
on variable* 14-36 
Simple statement * 9-1 
SIN function *11-6 
Sine* 11-6 
SINGLE type * 6-9 

allocation size of* 14-26 
default field width of* 12-50 
Single-precision real numbers *6-9 
Size attributes* 14-26 
SIZE function * 11-3 
SNGL function* 11-37 
Special symbols * 5-9 
SQR function *11-6 
SORT function* 11-7 
Square root *11-7 
Stack pointer 

debugger symbol for *4-40 
Standard 

detection of violations to*F-1 


/STANDARD qualifier * 3-15 
Statement label 

specifying to debugger * 4-47 
Statements*9-1 to 9-17 
assignment* 9-2 
CASE *9-4 
compound * 9-2 
conditional * 9-4 
empty * 9-4 

execute with STEP command *4-23 

FOR * 9-9 

GOTO *9-15 

IF-THEN * 9-6 

IF-THEN-ELSE * 9-6 

overview of * 5-3 

procedure call *9-16 

REPEAT *9-11 

repetitive * 9-8 

setting breakpoint on *4-26 

setting tracepoint on *4-27 

simple * 9-1 

specifying to debugger by line number* 
4-47 

structured * 9-1 
WHILE *9-12 
WITH *9-13 
Static allocation* 14-7 
STATIC attribute* 14-7 
Static variable 
scope of *4-53 
Static variables 

Initialization of *8-6 
Statistics listing 

of the compiler * 3-31 
STATUS function* 12-38 

called after READLN* 12-64 
STATUSV function* 11-16 
example of * 11-16 
%STDESCR foreign mechanism 
on actual parameter* 10-38 
%STDESCR mechanism specifier 
on formal parameter* 10-13 
STEP command *4-22 
qualifiers on *4-23 
/INSTRUCTION qualifier * 4-23 
/INTO qualifier *4-24 
/OVER qualifier *4-24 
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' STEP command (cont'd.) 

/SYSTEM qualifier *4-24 
use after watchpoint • 4-30 
STOP command *4-22 
String operators • 7-9 
String-descriptor mechanism* 10-14 
Strings 

See Character strings 
Structural compatibility • 6-35 

affected by ASYNCHRONOUS* 14-9 
affected by POS * 14-24 
affected by UNBOUND* 14-30 
affected by UNSAFE* 14-31 
affected by VOLATILE* 14-37 
affected by WRITEONLY* 14-39 
effect of allocation size on* 14-27 
effect of attributes on* 10-35 
Structure, program 
overview of * 5-5 
Structured statement * 9-1 
Structured type 

affected by READONLY * 14-24 
affected by WRITEONLY* 14-39 
alignment of* 14-6 
allocation size of* 14-26 
effect of VOLATILE on* 14-37 
Structured types *6-1, 6-12 to 6-33 
constructor for *6-12 
packed* 6-12 
Subdirectories* 1-9 
deleting a * 1-10 
specification of* 1-9 
Submitting batch jobs* 1-20 
Subrange type * 6-8 

bounds checking* 14-11 
subrange type 

bounds checking *6-9 
Subranges 

compile-time checking of *3-7 
Subscript 
See Index 

SUBSTR function* 11-17 
examples of* 11-17 
SUCC function *6-3, 11-30 
Successor*11-30 
Symbol *4-40 to 4-53 

copy Into symbol table *4-42 
external * 4-45 


Symbol (cont'd.) 

found In symbol table *4-41 
global *4-41, 4-45 
local * 4-41 

permanent In debugger * 4-40 
Symbol table *4-41 

adding names to *4-42 
contents of *4-41 
display contents of *4-43 
Information about external symbol *4-45 
Information about global symbol *4-45 
names in *4-41 
size of *4-42 
Symbolic constant 
definition * 8-3 
Symbols, special * 5-9 
System logical names* 1-13 
common * 1-14 
System services 

executing with debugger * 4-24 
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Tables 

logical name* 1-13 
Terminal I/O* 12-62 
example of* 12-63 
Terminal scrolling* 1-17 
Text files * 6-33 
component* 12-2 
delayed device access to * 12-62 
predeclared routines for* 12-42 to 
12-56 

prompting on* 12-55 
reading * 12-26 
TIME procedure* 11-40 
Traceback listing 

produced at run time *3-47 
/TRACEBACK qualifier 

on LINK command *3-44 
Tracepoint 

breakpoint canceled by *4-27 
In debugging * 4-27 
set on branch instructions * 4-28 
set on call instructions * 4-28 
Transfer 

function * 11-33 
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Transfer (cont'd.) 

procedure* 11-35 
TRUNC function* 11-37 
TRUNCATE 

procedure * 12-39 
TRUNCATE attribute* 14-27 
Truncation to integer* 11-37 
Type 

default in debugging * 4-37 
Type cast operator* 7-12 
Type compatibility * 6-35 
assignment * 6-37 
structural * 6-35 
Type conversion * 7-2 

of actual parameter* 10-34 
Type definition * 8-4 
TYPE section *8-4 
Types 

See Data types 
common file * 1-8 
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UAND function* 11-7 
UDEC function* 11-18 
example of * 11-18 
UFB function * 12-40 
UlC* 1-9 

UINT function* 11-37 
UN ALIGNED attribute* 14-5 
UNBOUND attribute* 14-29 

required with %IMMED routine 
parameter* 10-15 
UNDEFINED function* 11-43 
Undefined mode * 12-8 
UNLOCK procedure* 12-41 
UNOT function* 11-7 
Unpack array* 11-38 
UNPACK procedure* 11-38 
example of * 11-38 
UNSAFE attribute* 14-31 

effect on formal parameter* 10-10 
on actual parameter* 10-34 
Unsigned functions* 11-7 
UNSIGNED type *6-5 

default field width of* 12-50 
UOR function * 11-8 


UPDATE procedure* 12-58 
UROUND function* 11-38 
User identification code* 1-9 
User-action parameter 

In CLOSE procedure* 12-21 
In OPEN procedure* 12-18 
UTRUNC function* 11-39 
UXOR function* 11-8 
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VALUE attribute* 14-33 
Value parameters 
actual * 10-33 
formal * 10-9 
VALUE section *8-8 
Value semantics* 10-9 

for actual parameter* 10-33 
implied by foreign mechanism* 10-14 
VAR parameters 

See Variable parameters 
VAR section *8-5 
initialization in *8-6 
Variable parameters 
actual * 10-35 
formal * 10-10 
Variable semantics* 10-10 
for actual parameter* 10-35 
implied by foreign mechanism* 10-14 
Variable-length record* 12-3 
Variables 

alignment of* 14-5 
allocation of* 14-8 
change value of *4-31 
control in FOR statement * 9-9 
declaration of *8-5 
dynamic * 6-33 
dynamic allocation of * 11-24 
dynamic, disposal of * 11-21 
examine value of *4-31 
in debugger expression * 4-44 
Initialization * 8-6 
Initialization of *8-8 
reference to * 8-6 
scope of *4-53 
setting watchpoints on * 4-29 
sharing of* 14-7 
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Variables (cont'd.) 

side effects on* 14-36 
specifying to debugger*4-44 
Variant record *6-16 
constructor * 6-19 
dynamic allocation of* 11-24 
VARYING 

conformant* 10-17 

VARYING OF CHAR type *6-28 to 6-29 
bounds checking ^14-11 
examples *6-29 
reading from text file* 12-27 
VAX PASCAL 

compiling programs *3-1 
executing programs * 3-46 
extensions of *3-15, 5-1, D-1 
Implementation features * E-1 
Introduction to *5-1 to 5-14 
linking programs * 3-38 
sample programs in*G-1 
VAX Symbolic Debugger 
See Debugger 
VAX/VMS* 1-1 

file specifications* 1-6 
help* 1-5 
using files* 1-16 
VAX/VMS Linker *3-38 

See also Linker, VAX/VMS 
Version number* 1-7 
Virtual address 

specifying to debugger * 4-47 
Visibility attributes* 14-34 
VOLATILE attribute* 14-36 
in type cast operation * 7-12 
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Wild-card characters* 1-12 
WITH statement*9-13 
examples of *9-14 
WORD attribute* 14-26 
WRITE procedure* 12-35 
WRITELN procedure* 12-47 
WRITEONLY attribute* 14-39 
WRITEV procedure* 11-19 
example of* 11-19 
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ZERO function* 11-43 
used as initializer * 8-6 


Warning-level error message 

limited by /ERROR-LIMIT * 3-11 
Warning-level error messages * 3-15 
/WARNINGS qualifier *3-15 
Watchpoint * 4-29 

restrictions on setting *4-30 
WEAK_EXTERNAL attribute* 14-35 
WEAK_GLOBAL attribute* 14-35 
WHILE statement* 9-12 
examples of * 9-12 
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COMMENTS 


Note: This form is for document comments only. 

DIGITAL will use comments submitted on this form at the 
company's discretion. If you require a written reply and are 
eligible to receive one under Software Performance Report 
(SPR) service, submit your comments on an SPR form. 


Did you find this manual understandable, usable, and well organized? Please make 
suggestions for Improvement. 
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